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PREFACE 


FORTRAN is a problem oriented language desig ^ in g form wit h which 

and engineers to express mathematical P vat - iet y of applications 

they are familiar. It 1 S . al f° f “ ation retrieval, and commercial data 
including process control, information retrieval, 

processing. 

This document describes the form of the basic elemerits of the 

ca*T!l bfused by an inexperienced FORTRAN progra-er, 
it is not designed to function as a tutorial manual. 

Because this document serves as the F 0 ^T c Ton a ?he R ™?-n C f.miTof 
tor several o£ the operating systems 'un on “e^PDP i^J rm , t } OIl . 

computers, it makes no reference p y hould b e the FORTRAN User’s 

Associated with this document, ho " ever ' be a FORTRAN 

Guide containing the necessary information for running 
program on a.specific operating system. 


DOCUMENTATION CONVENTIONS 

Throughout this manual the following notations are used to denote 
special non-printing characters. 

Tab character (TAB key or CTRL/I key 
combination) 


H 


A (delta) Space character (SPACE bar) 


This document serves as the FORTRAN language reference manual for two 
PDP-11 FORTRAN processors: FORTRAN IV and FORTRAN 

Language elements common to both processors are P^ se " bed «^hout 
background shading. Language elements availab e y 

IV-PLUS are printed against a shaded background. 
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SYNTAX NOTATION 

The following conventions are .used in the description of FORTRAN 
statement syntax. 

1. Upper case words and letters, as well as punctuation ma 
other than those described in this section, are written as 

shown. 

2. Lower case words indicate that a value is ^^substituted. 
The accompanying text specifies the nature of the 
substituted, e.g., integer variable or statement label. 

' 3. Square brackets ( [ ] ) enclose optional items. 

4. An ellipsis (...) indicates that the preceding item or 
bracketed group can be repeated any number of times. 

For example, if the description were 

CALL sub l (a [ ,a] . ..) 1 

then all of the following would be correct: 


CALL TIMER 

CALL INSPCT (I , J , 3.0) 
CALL REGRES (A) 
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CHAPTER 1 

INTRODUCTION TO PDP-11 FORTRAN 


1.1 LANGUAGE OVERVIEW 


The PDP-11 FORTRAN language conforms 
American National Standard FORTRAN 
enhancements to American National Standard 
PDP-11 FORTRAN: 


to the specifications for 
X3.9-1966. The following 
FORTRAN are included in 


1. Any arithmetic expression can be used as an array subscrip . 
If the expression is not of type Integer, it is conver 
Integer form. 


2 . 


3. 


4. 


Alphanumeric literals (character 
apostrophes) can be used in place of 


strings 

Hollerith 


Mixed-mode expressions can contain elements 
type, including Complex. 

The statement label list in an assigned GO TO 
optional. 


bounded by 
constants. 

of any data 
statement is 


5. The following Input/Output statements have been added: 


ACCEPT ) „ T 

TYPE > Device-oriented I/O 

PRINT ) 

DEFINE FILE \ 

READ (u'r) ( , r/f . 

WRITE (u'r) ( Unformatted Direct Access I/O 

FIND (u'r) ) 


6. The specifications END=n and/or ERR=n can be included in any 
READ or WRITE statement to transfer control to the specifie 
statement upon occurrence of an end-of-file or error 
condition. 

7. The following additional data type is provided: 


LOGICAL*l 

8. The IMPLICIT statement redefines the implied data type of 
symbolic names. 

9. Any FORTRAN statement can be followed, in the same line, by 
an explanatory comment that begins with an exclamation 

point. 
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10 . 


Statements can be included in a program for 
purposes by placing the letter D in column 
statements are compiled only when the associated 
option switch is set; otherwise, they are 
comments. 


debugging 
1. These 
compiler 
treated as 


11 . 


Undersized 
separators 
for those 


input data fields can contain external field 
to override the FORMAT field width specifications 
fields (called "short field termination"). 


12. Any arithmetic expression can be used as the initial value, 
increment, or limit parameter in the DO statement', or as the 
control parameter in the computed GO TO statement. 

13. The value of the DO statement increment parameter can be 
negative. 

14. Constants and expressions are permitted in the I/O lists of 
WRITE, TYPE, and PRINT statements. 

15. A PROGRAM statement can be used in a main program. 


16. An optional comma is allowed in DO statements for better 
readability and reduced user errors. > 

For example 


DO 5, 1=1,10 


In addition, FORTRAN IV-PLUS includes the following extensions: 

17. PARAMETER statements can be used to give symbolic names to 
constants. 

18. ,ENTRY statements can be used in SUBROUTINE and FUNCTION 

subprograms to define multiple entry points in a single 
program unit. 

19. Lower bounds for array dimensions can be specified in aj.1 
array declarators. 

20. The data type INTEGER*4 provides a sign plus 31 bits of 
precision. 

21. The following Input/Output statements have been added: 

• . - ■ 

OPEN l ,,. 

CLOSE | File control and attribute specification 

READ (u'r,fmt)» 

WRITE (u'r,fmt)JFormatted Direct Access I/O 


22. Generic function selection by argument data type is provided 
for many FORTRAN supplied functions. 

23. The control variable of a DO statement can be a REAL or 

DOUBLE PRECISION variable. ' 
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24. 


25 r 


The INCLUDE statement incorporates FORTRAN soufce testfc 
a separate file into a FORTRAN program. 

Formatted input/output can be performed without a format 
sDecification using list-directed I/O* 


gjjaiflwi 




2 ELEMENTS OF A FORTRAN PROGRAM 


A fortran program consists of FORTRAN statements and optional 
■'omments. The statements are organized in logical u 
program units. A program unit is a sequence of ^cements terminated 
by an END statement that defines a computing Procedure. A program 

unit can be either a main program or a subprogram. °n?,rahle nroaram 
and possibly one or more subprograms comprise the executable prog 


1.2.1 Statements 

Statements are grouped into two general classes: e *^utable jnd 
nonexecutable. Executable statements describe the action of th 
program; nonexecutable statements describe data arrangement a 
characteristics, and provide editing and data conversion information. 

Statements are divided into physical sections called lines. ^ line is 
a string of up to 72 characters. If a statement is too long to be 
contained on one line, it can be continued on one or more additional 
lines, called continuation lines. A continuation line is identified 
by the presence of a continuation character in the sixth column of 
that line. (For further information concerning continuation 

characters, see Section 1.3.4, Continuation Field.) 


A statement can be identified by a statement label so 
statements can refer to it, either for the information it 
to transfer control to it. A statement label has the 
integer number placed in the first five columns o a 
initial line. 


that other 
contains or 
form of an 
sta tement 1 s 


1.2.2 Comments * 

Comments do not affect the meaning of the program in any way, but are 
a documentation aid to the programmer. They should be used 
describe the actions of the program, to identify program sections and 
processes, and to provide greater ease in reading the source program 
listing. The letter C in the first column of a source line identifies 
that line as a comment. Also, if an exclamation point (!) is placed 
in the statement portion of a source line, the rest of that line is 
treated as a comment. 


1.2.3 The FORTRAN Character Set 

The FORTRAN character set consists of; 
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1. The upper case letters A through Z and the lower case letters 
a through z 

2. The numerals 0 through 9 

3. The following special characters: 

Character Name 

A Space or Blank or Tab 

s Equals 

+ Plus 

Minus 

★ Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 


Comma 

Decimal Point 


• Apostrophe 

" Double Quote 

$ Dollar Sign 

: Colon 



wing additional spaciai characters are 

'V. ■ v.', 

Left Angle Bracket 


An?leBcack>t * 


Ocher Dr incable characters may appear in a FORTRAN scatement only as 
pare of a Hollerith constant or alphanumeric literal. Any printable 
character can appear in a comment. 

Except in alphanumeric licerals and Hollerith constants, the compiler 
makes no distinction between upper and lower case letters. 







1.3 FORMATTING A FORTRAN LINE 


The formatcing of a FORTRAN line is the same for lines punched 
cards or paper tape and for lines entered from a terminal using a 
editor. Only themethod of formatting differs. 


into 

text 
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1.3.1 Using FORTRAN Coding Forms 

A FORTRAN line is divided into fields for ^^^"hers^Each 
continuation indicators, statement text and sequence numbe . Eh 
column represents a single character. The usage of each type of 
is described in the following sections. 


FORTRAN 

COOING IO«M 



OIOITAL EQUIPMENT CORPORATION • MAVNARO. MASS ACM U S ET TS 


Figure 1-1 
FORTRAN Coding Form 


1.3.2 Using a Text Editor 

When creating a source program via a terminal, using a^ text editor, 
the user can type the lines on a "character-per-column basis, or use 
the TAB character to facilitate formatting the lines. 

If a TAB character appears at the beginning of a line, possibly 
preceded by a statement label or a D in column 1, and the following 
character is a digit, the compiler treats the digit as a continuation 
indicator and the character following as tl ?e beginning °*L.. th ® 
statement text. If the character following the initial TAB is ? 
digit, the compiler treats it as the first character of the statement 
text. If the continuation indicator is a "0" the line is an initial 
line. 

While many text editors and terminals advance the terminal print 
carriage to a predefined print position when the TAB character is 
typed, this action is not related to the interpretation of the TAB 
character described above. 
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INTRODUCTION TO PDP-li FORTRAN 


Formatting of the following lines can be accomplished in either of the 
following ways: 


1AH0LD,MOVE,DECODE 

or 

C-| INITIALIZEAARRAYS 

or 

10H W=3 

or 

HSEL(1)=111200022D0 

or 

-•) represents a TAB 

character 


aaaaaiahold,move,decode 

CAAAAAINITIALIZEAARRAYS 

10AAAAw=3 

AAAAAASEL(1)*111200022D0 

(CTRL/I), and 


A represents a space character (SPACE bar). 


The space 
legibility 
statement 
alphanumer 
character 
compiler. 
causes the 
(located a 


character can be used in a FORTRAN statement to improve 
of the line; the compiler ignores all spaces in a 
field except those within a Hollerith constant or 
ic literal (e.g., GO TO and GOTO are equivalent). The TAB 
in a statement field is treated the same as a space by the 
In the source listing produced by the compiler, the TAB 
character that follows to be printed at the next tab st.op 
t columns 9,17,25,33, etc.). 


1.3.3 Statement Label Field 

A statement label or statement number consists of one to five decimal 
digits placed in the first five columns of a statement's initial line. 
Spaces and leading zeros are ignored. An all-zero statement label is 
illegal. 

Any statement to which reference is made by another statement must 
have a label. No two statements within a program unit can have the 
same label. 


1.3.3.1 Comment Indicator - The letter C can be placed in column one 
to indicate that the line is a comment. The compiler prints the 
contents of that line in the source program listing, then ignores the 

line. a 


1.3.3.2 Debug Statement Indicator - Debug statements are designated 
by a D in column one. The initial line of the debug statement can 
contain a statement label in columns two through five. If a debug 
statement is continued onto more than one line, then every 
continuation line must contain a D in column one as well as a 
continuation character in column six. 

The debug statement can be treated either as source text to be 
compiled or as a comment, depending on the setting of a compiler 
command switch. When the switch is set, debug statements are compiled 
as a part of the source program? when it is not set, debug statements 

are treated as comments. 
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1.3.4 Continuation Field 

Column six of a FORTRAN line is reserved for a continuation indicator. 
Any character except zero or space in this column is recognized as a 
continuation indicator. A statement can be divided into distinct 
lines at any point. The characters beginning in column seven ot a 
continuation line are considered to follow the last character of the 
previous line as if there were no break at that point. 

Comment lines cannot be continued. All comment lines must begin with 
the letter C in column one. Comment lines must not intervene between 
a statement's initial line and its continuation line(s), or between 
successive continuation lines. 


1.3.5 Statement Field 

The text of a FORTRAN statement is placed in columns 7 through 72. 
Because the compiler ignores the TAB character and spaces (except in 
Hollerith constants and alphanumeric literals), the user can space the 
text in any way desired for maximum legibility. 


1.3.6 Sequence Number Field 

A sequence number or other identifying information can appear in 
columns 73-80 of any line in a FORTRAN program. The characters in 
this field are ignored by the compiler. 


NOTE 

Text is ignored with no warning message 
printed if a line accidentally extends 
beyond character position 72. 


1.4 PROGRAM UNIT STRUCTURE 

Figure 1-2 provides a graphic representation of the rules for 
statement ordering. In this figure, vertical lines separate statement 
types which may be interspersed, such as DATA and* executable 
statements; horizontal lines indicate statement types that can not be 
interspersed, such as DATA and PARAMETER statements. 
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PROGRAM, FUNCTION, SUBROUTINE, or 

BLOCK DATA Statement 



PARAMETER 

Statements 

IMPLICIT 

Statements 

Comment 

Lines 

FORMAT 

and 

ENTRY 

Statements 

Other Specification 
Statements 


DATA 

Statements 

Statement 

Function 

Definitions 

< 


Executable Statements 


END Line 

' • : 

*_—.————--- 

Required < 

Figure 1-2 

Order of Statements and Lines 


LUDE 


1•5 INCLUDE STATEMENT 

The INCLUDE statement specifies that the contents of a designated file 
are to be incorporated in the FORTRAN compilation directly following 
the INCLUDE statement. ? 

The INCLUDE stat^meft^has the forms ;• ;. ; .Pf -’ \ .’l A / 

INCLUDE'’filspec[/fNO]LIST] > 


m ^ Tuj.'o 


H 





actec string that specifies the file to be 

B ^,5»be -cdmpJ4atiMW.!?hip, **{£ . • 

eptabie the«o^ffayhS' f8 *® kh# 

for the ffi 

‘ “* j * ' 


for tetp-ftrc* of 4. f ilh 


' ; :v$x*r yiWc. ., „ w . .... „ „ . 

4 *\ ’■ > /*. , 4 * $■ » »* ^ sT t£\ | ^ ^ J*^ *.** -* ^ \. * v^*ft 

The option specification /LIST indicates that the Statements in the 
included file are co be listed in the compilation source listing 
preceded by an asterisk (*). The /NOLIST option specification 
indicates that the included statements are not to be listed in the 
compilation source listing. The /LIST option is assumed if neither 
option is specified. 

When the compiler encounters an INCLUDE statement, it stops reading 
statements from the current file and compiles the statements in'the 
included file. When the end of the included file is reached, 
compilation resumes with fha ■ 'ptatapmfiSt fp3,J.owi^g the INCLUDE • 

statement* : 
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An INCLUDE statement can be contained in an infll 

An included file can not, begin with a conLib^tAf 
statement must be completely contained within pj 

The include statement can appeal? anywhere 

appear as illustrated in figure 1-2- Any 

in an included file; however, the included stati 

with the other s p'f - 

statement ordering Sect UfflmOmk 

Example 


INCLUDE ifOMI* 
DIMENSION 7.{M 

call;cobe 0 

DO 5, 1*1, M 


&g§gK 


. 

as I : ■ v dMWg 

SUBROUTINE CUBE 
INCLUDE ’COMMON,FTN 1 
DO 10,, 1*1, M 

io xui m xiiym 

return 

end , > 


SM. *' v^> 


THE FILE COMMON JTH #$£ 
size of the arrays X,T 


a 
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CHAPTER 2 


FORTRAN STATEMENT COMPONENTS 


2.1 INTRODUCTION TO FORTRAN STATEMENT COMPONENTS 
The basic components of FORTRAN statements are: 

1. Constants 

A constant represents a fixed, self-describing value. 

2. Variables ' 

A variable is a symbolic name that represents a stored value. 

3. Arrays . , .. . 

An array is a group of values, stored contiguously, that can 
be referred to individually or Collectively. The individual 
values are called array elements. A symbolic name is used to 
refer to the array. 

4. Expressions 

An expression can be a single constant, variable, array 
element, or function reference, or it can be a combination of 
those components and certain other elements, called 
operators, that specify computations to be performed on the 
values represented by those components to obtain a single 
result. 

5. Function References 

A function reference is the name of a function followed by a 
list of arguments which performs the computation indicated by 
the function definition. The resulting value is used in 
place of the function reference. Function references are 
treated in detail in Chapter 8. 


2.2 SYMBOLIC NAMES 

Symbolic names are used to identify many entities within a FORTRAN 
program unit. 

A symbolic name is a string of letters and digits, the first of which 
must be a letter. The name can be of any length, but characters after 
the sixth are ignored. Examples of valid and invalid symbolic names 

are: 

Valid 

NUMBER 
K9 
X 


Invalid 

5Q (Begins with a numeral) 

B.4 (Contains a special character) 
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Table 2-1 indicates the types of entities which are identified by 
symbolic names. 


Within one program unit, the same symbolic name cannot 
identify more than one entity, except as noted. Within 
program, the same symbolic name can be used to identify^ 
the entities indicated as "Unique in Executable Program 


be used to 
an executable 
only one of 
in Table 2-1. 


Each entity indicated as "Typed" in Table 2-1 
means of specifying the data type of a name 
2.5.1 and 2.5.2. 


has a data type. The 
are discussed in Sections 


Within a subprogram, symbolic names 
A dummy argument can represent 
constant, expression, or subprogram 


are also used as dummy arguments, 
a variable, array, array element. 


Table 2-1 

Classes of Symbolic Names 


Entity 

Typed 

Unique in 

Executable Program 

jL ----------- 

Variables 

yes 

no 

Arrays 

yes 

no 

Arithmetic statement functions 

yes 

no 

Processor-defined functions 

yes 

yes 

Function subprograms 

yes 

yes 

Subroutine subprograms 

no 

yes 

Common blocks 

no 

yes 

Main programs 

no 

yes 

Block data subprograms 

no 

yes 

Function entries 

Subroutine entries 

Parameter constants 

•pBwgMggfggaBl^i * * vmmmm 

yea 

no 

ye§ • 
yea % fm 


2.3 DATA TYPES 


Each basic component represents data of one of 
types. The data type of a component can be 
construction, implied by convention, or explicitly 
types available in FORTRAN, and their definitions, 


several different 
inherent in its 
declared. The data 
are as follows: 


1. Integer 


- A whole number. 


2 . Real - A decimal number; it can be a whole 

number, a decimal fraction, or a 
combination of the two. 

3. Double Precision - Similar to real, but with more than 

twice the degree of accuracy in its 
representation. 

4 Complex - A pair of real values that represents a 

complex number; the first represents 
the real part of that number, the second 
represents the imaginary part. 

5. Logical - The logical value "true" or "false". 
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An important attribute of each type of data is ^e amount of memory 

required to represent a value Jhn^riprsse^sd v.lue or the 

types affect either the accuracy of the represented 

allowed range of values. 

Hollerith constants and alphanumeric literals have no data cefsection 
assume the data type of the context in which they appear. See Section 

2.4.7.2 for details. 

Standard FORTRAN specifies that a "storage unit" j® , ^alutT'^Double 
storage needed to represent a Real, Integer «r Wgic.1 ..lie. 
Precision and complex values occupy two st °”’ e b “"* s ' (tuo „ords) of 
FORTRAN a storage unit corresponds to four oy 

memory. 

PDP-11 FORTRAN provides additional types of data h f° C o°2 C iists & the C data 
of performance and memory requirements. Table 2-2 lists the data 

types available, the names associated with each data typ , 
amount of storage required. The form *n appended to a data type na 
is called a data type length specifier. 



Data Type 


Table 2-2 

Storage Requirements 


DATA TYPE 

FORTRAN IV 
(Bytes) 

INTEGER 

2 or 4 (Note 

INTEGER*2 

2 

INTEGER*4 

4 (Note 3) 



1 ) 


.REAL 
'REAL*4 

DOUBLE PRECISION 
REAL*8 


4 

8 


COMPLEX 

C0MPLEX*8 


8 


LOGICAL 


4 


LOGICAL*l 

BYTE 

LOGICAL* 2 

| LOGICAL*4 

| __ 


1 (Note 5) 

Not Available 
4 
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NOTES: 

1. Either two or four bytes are allocated according to a 

compiler command specification. The default allocation is 

two bytes. In either case only two bytes are used to 
represent the integer value. The .4-byte allocation is 
provided to simplify use of programs developed on other 
FORTRAN systems. (Consult the FORTRAN IV User's Guide for 
details.) 

2. Either two or four bytes are allocated depending on a 

compiler command specification. The default allocation is 
two bytes. When four bytes are allocated, all four bytes are 
used to represent the integer value. Hence 4-byte integers 
can store a larger range of values than 2-byte integers. 
(4-byte integers can also simplify the use of programs 
developed on other FORTRAN systems.) 

3. Four bytes are allocated but only the first two are used to 

represent the integer value. The range of possible values is 

' therefore the same as for INTEGER*2 variables. 

4. Either two or four bytes are allocated depending on a 

compiler command specification. Two bytes is the normal 
case. 

5. The 1-byte storage area can contain the logical values true 
or false, a single Hollerith character, or integers in the 
range -128 to +127. 

Additional descriptions of these data types and their representations 
are presented in the sections that follow. 


2.4 CONSTANTS 

A constant represents a fixed value. A constant can represent a 
numeric value, a logical value, or a character string. 


2.4.1 Integer Constants 

An integer constant is a whole number with no decimal point. It can 
have a leading sign and is interpreted as a decimal number. 

An integer constant has the form: 

snn 

where nn is a string of numeric characters and s is an optional sign. 
Leading zeros, if any, are ignored. 

A negative integer constant must be preceded by a minus symbol; a 
positive constant can optionally be preceded by a plus symbol (an 
unsigned constant is presumed to be positive). 

Except for a leading algebraic sign, an integer constant cannot 
contain any character other than the numerals 0 through 9. 

The absolute value of an integer constant cannot be greater than 32767 
in FORTRAN IV or 2147483647 in FORTRAN IV-PLUS. 
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Examples 

Valid Invalid 

Integer Constants Integer Constants • 

99999999999 (Too large) 

3.14 (Decimal point and 

32/767 comma not allowed) 


0 

-127 

+32123 



In FORTRAN IV~PLU5 
-32768 to +32767 
create^ as INTEGER 
thm It 

INTEGERS data typ< 


2.4.2 Real Constants 

A basic real constant is a string of decimal digits with a decimal 
point. 

A basic real constant has che form: 

s.nn OR snn.nn OR snn. 


where nn is a string of numeric characters and s is an optional sign. 
The decimal point can appear anywhere in the string. The number of 
digits is not limited/ but only the leftmost eight digits are 
significant. Leading zeros (zeros to the left of the first non-zero 
digit) are ignored when counting the leftmost eight digits. Thus m 
the constant 0.000012345678 all of the non-zero digits are 
significant. 

A basic real constant must contain a decimal point. 

A real constant is a basic real constant or an integer constant or 
basic real constant followed by a decimal exponent of the form: 

Esnn * 


where nn is a 1- or 2-digit integer constant and s is an optional 
sign. It represents a power of ten by which the preceding real or 
integer constant is to be multiplied (e.g. r 1E6 represents the value 
1.0 x IQ 6 ) . 

A real constant occupies two words (i.e. f four bytes) of PDP-11 
storage and is interpreted as a real number having a degree of 
precision slightly greater than seven decimal digits. 


A minus symbol must appear between the letter E and a negative 
exponent? a plus symbol is optional for a positive exponent. 


Except for 
used! / a 
numerals 0 


algebraic signs f a decimal point/ and the 
real constant cannot contain any character 
through 9. 


letter E 
other than 


(if 

the 
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If the letter E appears in a real Constantsa 1- or 2-digit integer 
constant must follow? the exponent field cannot be omitted, but can 
be zero. 

— 38 

The magnitude of a real constant cannot be smaller than 0.29 x 10 
nor greater than 1.7 x 10 88 . 


Examples 

Valid 

Real Constants 


3.14159 

621712. 

-.00127 

+5.0E3 

2E-3 


Invalid 

Real Constants 


1,234,567 

325E-75 

-47.E47 

100 

$25.00 


(Commas not allowed) 
(Too small) 

(Too large) 

(Decimal point missing) 
(Special character 
not allowed) 


2.4.3 Double Precision Constants 


A double precision constant is a basic real constant or an integer 
constant followed by a decimal exponent of the form: 

Dsnn 

j 

where nn is a 1- or 2-digit integer constant and s is an optional 
sign. The number of digits that precede the exponent is not limited, 
but only the leftmost 17 digits are significant. 

A double precision constant occupies four words of PDP-11 storage and 
is interpreted as a real number having a degree of precision 
approximately equal to 17 significant digits. 


A negative double precision constant must be preceded by a minus 
symbol? a positive constant can optionally be preceded by a plus 
symbol. Similarly, a minus symbol must appear between the letter D 
and a negative exponent? a plus symbol is optional for a positive 
exponent. 


The exponent field following the letter D cannot be omitted, but can 
be zero. 

The magnitude of a double precision constant cannot be smaller than 
0.29 x 1Q“38, nor greater than 1.7 x 10^®. 

Examples 

1234567890D+5 

+2.71828182846182D00 

-72.5D-15 

1D0 
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2.4.4 Complex Constants 

A complex constant is a pair of real constants separated by a comma 
and enclosed in parentheses. The first real constant represents the 
real part of that number and the second represents the imaginary part. 

A complex constant has the form: 


(rc,rc) 

where rc is a real constant. The parentheses and comma are part of 
the constant and must be present. The rules for the constituent real 
constants are given in Section 2.4.2. 

A complex constant occupies four consecutive words of storage and is 
interpreted as a complex number. 

Examples 

(1.70391,-1.70391) 

(+127 39E3, 0.) 


2.4.5 Octal Constants 

An octal constant is an alternate way „ of representing an integer 
constant and can be used in a like manner. 

An octal constant has the form: 

"nn 

where nn is a string of octal digits. 

Except for the leading double quote, which must be present, an °c ta l 
constant cannot contain any character other than the numerals 0 
through 7. 

An octal constant cannot be smaller than zero, nor greater than 177777 
in FORTRAN IV or 37777777777 in FORTRAN IV-PLUS. 


a 

Examples 


Valid 

Octal Constants 


Invalid 

Octal Constants 


"7213 

"1 

"17776 


32767 (Double quote missing) 

"184 (Illegal character) 
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2.4.6 Logical Constants 


A logical constant specifies a logical value, "true" or "false". 
Therefore, there are only two possible logical constants. They appear 
as: 

.TRUE. 

and 


.FALSE. 


The delimiting periods are part of each constant and must be present. 


2.4.7 Hollerith Constants 

A Hollerith constant is a string of ASCII characters preceded by a 
character count and the letter H. 

A Hollerith constant has the form: 

nHc.c 0 c_ ... c 
12 3 n 

where n is an unsigned, non-zero integer constant stating the number 
of characters in the string (including spaces and tabs), and each c is 
an ASCII character. The maximum number of characters is 255. 

Hollerith constants are stored as byte strings, one character per 
byte. 


Hollerith constants have no data type. They assume the data type of 
the context in which they appear. 


Examples 


Valid 

Hollerith Constants 

16HTODAY 9 SADATEAIS: 
1HA 


Invalid 

Hollerith Constant 
3HABCD (Wrong number of characters) 


2.4.7.1 Alphanumeric Literals - An alphanumeric literal is an 
alternate form of Hollerith constant. 


An alphanumeric literal has the form: 


* c i c 2 c 3 


c * 

n 


where each c is a printable ASCII character. Both delimiting 
apostrophes must be present. The maximum number of characters in an 
alphanumeric literal is 255. 


Within an alphanumeric literal, the apostrophe character is 
represented by two consecutive apostrophes. 

Examples 


* CHANGEAPRINTERAPAPERATOAPREPRINTEDAFORMANO.A721 1 
■TODAY''SADATEAIS:AA' 
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2 4 7 2 DclCcl i.y txuxcu a- v * - - — — — _~ • - 

alphanumeric literal or HolTeTTth constant is used in an.^P^ssion, 
the data type assumed for the constant is governed by the following 
rules. 

In combination with a binary operator, including the 
assignment operator, the type of the constant is the type of 
the other operand. 


Type 


Rules for Hollerith Constants 


When 


an 


1 . 


Examples: 

Sta temen t 


Data Type 


Length of Constant 


REL = ' ABCD 1 REALM 

IF(I.EQ.'XY') GO TO 3 INTEGER*2 
M = N - 'ABC' INTEGER*2 

X = * z ' REALM 


4 

2 

2 

4 


In contexts where a specified data type is required, 
generally integer, that type is assumed for the constant. 

Example: 

Y(IX)=Y( 1 ABC 1 )+3. INTEGER* 2 2 

When the constant is used as an actual argument, no data type 
is assumed. 

Example: 

CALL APAC ('ABCDEFGHI') 9 

In all ocher contexts, TNTEGER*2 type is assumed. 

Examples s 


IF ('AB') 1,2,3 
1= ’C'-'A' 

J= .NOT. 'B' 


INTEGER*2 

INTEGER*2 

INTEGER*2 


2 

2 

2 


When the length of the constant is less chan the iengch implied by the 
daca type, spaces are appended to the constant on che right. When che 
length of the conscanc is greater chan the length implied by the data 
cype, che conscant is truncated on the righc. ■* 

The number of characters required for each data type is illustrated in 
Table 2-2. Each character occupies one byte of storage. 


2.4.8 Radix-50 Conscancs 

Radix-50 is a special character data representation in which up to 
chree characters from the Radix-50 character set (a subset of che 
ASCII characcer set) can be encoded and packed into a single PDP li 
word. Radix-50 constancs can only be used in DATA statements. 
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A Radix 50 constant has the following form: 

nRc c _ ... c 
l a n 


where n is an unsigned non-zero integer constant that states the 
number of characters to follow, and each c is a character from the 
Radix-50 character set. The maximum number of characters is twelve. 
The character count must include any spaces that appear in the 
character string (the space character is a valid Radix-50 character). 

The internal numeric value of any combination of one, two, or three 
Radix-50 characters is tabulated in Appendix A. 

The Radix-50 characters and their code values are: 

Radix-50 Value 
Character (Octal) 


Space 0 

A - Z 1-32 

$ 33 

34 

(not used) 35 


0-9 


36-47 


Examples 

4RABCD 

6RAATOAA 

4RDkO: (Invalid; colon is not a Radix-50 character) 


2.5 VARIABLES 

A variable is a symbolic name that is associated with a storage 
location. The value of the variable is the value currently stored in 
that location; that value can be changed by assigning a new value to 
the variable. (The form of a symbolic name is given in Section 2,2.) 

A 

Variables are classified by data type, just as constants are. The 
data type of a variable indicates the type of data it represents, its 
precision, and its storage requirements. When data of any type is 
assigned to a variable, it is converted, if necessary, to the data 
type of the variable. The data type of a variable may be established 
either by type declaration statements, IMPLICIT statements, or 
predefined typing rules. 

iwo or more variables are associated with each other when each is 
associated with the same storage location; or, partially associated, 
when part (but not all) of the storage associated with one variable is 
the same as part or all of the storage associated with another 
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variable. Association and partial association occur through the use 
of COMMON statements, EQUIVALENCE statements, and through the use of 
actual arguments and dummy arguments in subprogram references. 

A variable is said to be defined if the storage with which it is 
associated contains a datum of the same type as the name. A variable 
can be defined prior to program execution by means of a DATA statement 
or during execution by means of assignment or input statements. 

If variables of differing types are associated (or partially 
associated) with the same storage location, then defining the value of 
one variable (for example, by assignment) causes the value of the 
other variable to become not defined. 


2.5.1 Data Type Specification 

Type declaration statements (Section 7.2) specify that given variables 
are to represent specified data types. For example: 

COMPLEX VARl 

DOUBLE PRECISION VAR2 


These statements indicate that the variable VARl is to be associated 
with a 4-word storage location that is to contain complex data, and 
that the variable VAR2 is to be associated with a 4-word double 
precision storage location. 


The IMPLICIT statement (Section 7.1) has a broader scope: it states 
that any variable having a name that begins with a specified letter, 
or any letter within a specified range, is to represent a specified 
data type, in the absence of an explicit type declaration. 


The data type of a variable can be explicitly specified only once. An 
explicit type specification takes precedence over the type implied by 
an IMPLICIT statement. 


2.5.2 Data Type by Implication 

In the absence of any IMPLICIT statements, all variables having names 
beginning with I, J, K, L, M, or N are assumed to represent integer 
data. Variables having names beginning with any other letter are 
assumed to be real variables. For example: 

Real Variables Integer Variables 

ALPHA KOUNT 


BETA ITEM 

TOTAL NTOTAL 


2.6 ARRAYS 

An array is a group of contiguous storage locations associated with a 
single symbolic name, the array name. The individual storage 
locations, called array elements, are referenced by a subscript 
appended to the array name. Subscripts are discussed in Section 
2 . 6 . 2 . 
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An array can have from one to seven dimensions. A column of figures 
is an example of a 1-d imensiona1 array. Several columns of figures 
would represent a 2-dimensional array; to refer to a specific value 
in this array, boch its entry (or row) number and its column number 
must be specified. If this cable of figures covered several pages, 
the array would be 3-dimensional. To locate a value in a 
3-dimensional array, the row number, a column number, and a page (or 
level) number must be specified. 

The following FORTRAN statements establish arrays: 

1. Type declaration statements (Section 7.2), 

2. DIMENSION statement (Section 7.3), 

3. COMMON statement (Section 7.4), and 

4. VIRTUAL statement (Appendix D) 

These statements, containing array declarators (array declarators are 
discussed in the following sub-section), define the name of the array, 
the number of dimensions in the array, and the number of elements in 
each dimension. 


2.6.1 Array Declarators 

An array declarator specifies the symbolic name that identifies an 
array within a program unit and indicates the properties of that 
array. 

An array declarator has the form: 
a (d [ ,d] . . .) 

a is the symbolic name of the array — the array name. 

(The form of a symbolic name is given in Section 2.2.) 

d is a dimension declarator. 

Ihe number of dimension declarators indicates the number of dimensions 
in the array. The minimum number of dimensions is one and the maximum 
number is seven. 

The value of a dimension declarator specifies the number of elements 
in that dimension. For example, a dimension declarator value of 50 
indicates that the dimension contains 50 elements. JThe dimension 
declarators can be constant or variable. Variable dimension 
declarators are used to define adjustable arrays (see Section 2.6.6). 
The number of elements in an array is equal to the product of the 
number of elements in each dimension. 

An array name can appear in only one array declarator within a program 
unit. 



FORTRAN IV-FLUS permits the dimension depiara 
bound as well as an upper bound for any dim 
upper and lower declarator ha 

^ ’A , ‘ * > * i > mki MmrnM 
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dl 

is 

the 

lower 

bound 

of 

the 

*► 

dimension. 

du 

is 

the 

upper 

bound 

of 

the 

dimension. 


The value of the lower bound dimension declarator can be negative, 
zero, or positive. The value of the upper bound dimension declarator 
must not be less than the corresponding., lower bbiigd dimension 


^ **•'*•' ^ mm mm mm V (rMV UOJ. *, W AVMlWl ' 

declarator. The number of elements in the dimension is 


If che 
be one 





/j|»f«wed,:v^,’;,. 


' ■ 


2.6.2 Subscripts 

A subscript qualifies an array name. A subscript is a list of 
subscript expressions enclosed in parentheses that determines which 
element in the array is referenced. The subscript is appended to the 
array name it qualifies. 

A subscript has the form: 

(s[,s] . . .) 

s is a subscript expression. 

In any subscripted array reference, there must be one subscript 
expression for each dimension defined for that array (one for each 
dimension declarator). For example, the following entry could be used 
to refer to the element located in the first row, third column, second 
level of the array COS in Figure 2-1 (which is the element occupying 
memory position 16). 

COS(1,3,2) 

Each subscript expression can be any valid arithmetic expression. If 
the value of a subscript expression is not of type Integer, it is 
converted to Integer before use. 


2.6.3 Array Storage 


As discussed earlier in this section, it is convenient to a thin 
dimensions of an array as rows, columns, and levels or 
However, the FORTRAN system always stores arrays in memory as 
sequence of values. A 1-dimensional array is stored with i 
element in the first storage location and its last element in 
storage location of the sequence. A multi-dimensional array i 
such that the leftmost subscripts vary most rapidly. This is 
the "order of subscript progression". For example, cons 
following array declarators and the arrays that they create: 


k of the 
planes. 
a linear 
ts first 
the last 
s stored 
called 
ider the 


2-13 

















FORTRAN STATEMENT COMPONENTS 


1-Dimensional Array ARC(6) 


1| ARC (1) | 2| ARC (2) | 3| ARC (3) | 4 | ARC (4) | 5 | ARC (5) |6 lARC(6)~ 

1 - i Memory Positions 

2-Dimensional Array TAN(3,4) 


1 

TAN(1,1) 

4 

TAN(1,2) 

7 

TAN(1,3) 

10 

TAN(1,4) 

"T 

TAN(2,1) 

T 

TAN(2,2) 

8 

TAN(2,3) 

11 

TAN(2,4) 

T 

TAN(3,1) 

6 

TAN(3,3) 

9 

TAN(3,3) 

12 

TAN(3,4) 


-Memory Positions 


3-Dimensional Array COS(3,3,3) 



19 

COS(l,l,3) 

22 

COS(1,2,3) 

25 

COS (1,3,3) 



20 

COS 2,1,3 

23 

COS 2,2,3) 

26 

COS (2,3^3} 


nr 

COS(1,172) 

13 

COS (1,2,3) 

1£> 

cosu,3,i) 

27 

COS(3,3,3) 


ii 

COS(2,1,2) 

14 

CCS (2,2,2) 

17 

COS(2,3,2) 


1 

COR(1,1,1) 

l 

COS(1,2,1) 


CO* 

5(1,3,1) 


18 

cos( 3 , 3 , 2 ) 

2 

COS(2,1,1) 

5 

COS(2,2,1) 

3 

COS(2,3,1) 



3 

'COS(3,1,1) 

6 

COS(3,2,1) 

9 

COR(3,3,1) 



Memory Positions 

Figure 2-1 
Array Storage 


2.6.4 Data Type of an Array 

The data type of an array is specified in the same way as the data 
type of a variable? that is, implicitly by the initial letter of the 
name, or explicitly by a type declaration statement. 

All of the values in an array are of the same data type. Any value 
assigned to an array element is converted to the data type of the 
array. If an array is named in a DOUBLE PRECISION statement, for 
example, the compiler allocates a 4-word storage location for each 
element of the array. When a value of any type is assigned to any 
element of that array, it is converted to double precision. 

The compiler stores L0GICAL*1 array elements in adjacent bytes. 

2.6.5 Array References without Subscripts 

In the following types of statements, an array name can appear without 
a subscript to specify that the entire array is to be used (or 
defined). 
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Type declaration statements 


COMMON statement 
DATA statement 
EQUIVALENCE statement 
FUNCTION statement 


SUBROUTINE statement 


CALL statement 
Input/Output statements 

Unsubscripted array names can also be used as actual arguments. The 
use of unsubscripted array names in all other types of statements is 
illegal. 


2.6.6 Adjustable Arrays 

Adjustable arrays are used within a single subprogram to process 
arrays with different dimension bounds by specifying the bounds as 
well as the array name as subprogram arguments. 

An adjustable array declarator has variable dimension declarators. In 
such an array declarator, each dimension declarator must be either an 
integer constant or an integer dummy argument, and the array name thus 
declared must also appear as a dummy argument. (Consequently, 
adjustable array declarators can not be used in main program units.) 

On entry to a subprogram containing adjustable array declarators, each 
dummy argument used in a dimension declarator must become associated 
with an integer actual argument. The values of the associated actual 
arguments *are used together with any constants appearinq in the array 
declarators to form an effective array declarator which determines the 
properties of the adjustable array for that execution of the 
subprogram. 


The values of dummy arguments used in adjustable array declarators 
must not be changed within the subprogram. 

The effective size of the dummy array must be eaual to or less then 
the actual size of the associated array. * 

The function in the following example computes the sum of the elements 
of a two-d imensiona1 array. Note the use of the parameters M and N to 

control the iteration. 

FUNCTION SUM (A,M,N) 

DIMENSION A(M,N) 

SUM = 0.0 
DO 10, I = 1, M 
DO 10, J = 1, N 
10 SUM = SUM + A ( I , J) 

RETURN 

END 
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Following are sample calls on SUM: 

DIMENSION A1(10,35), A2(3,56) 
SUM1 = SUM(A1,10,35) 

SUM2 = SUM(A2,3,56) 

SUM3 = SUM(Al,10,10) 


In addition, dimension declarators can be expressions provided ; • 

1. Each operand is an integer constant, or an integer dummy 

argument, or an integervariable in 9 COMMON block which i* 
defined on entry- to.'the subprogram, : -vV ” ? ./$■•'?" 

2. Each operator, ia one of the operators +, *, /, or **. 

{Arrayirtfet'fnces and function refer#n#fa ay:® not permitted 

Note that the upper and lower bound values are determined Once each 
time a subprogram is entered and will not change during, tha **egpt».OR 
of thgc subprogram even jQP the values of variables contained in cfc* 
array declaration at? changed. For V'- '’ ; 

ill . ’ * >: \ ' . ‘ 




Dimension array o, si 

L*9 ‘ ' "• .* 

M“5 • ' • - 5 ; f. * ' 

CALL SUB(ARRAY,L,M) 

END 

‘V \f' \* v ‘ % > 

SUBROUTINE SUB(X,I,J) 
PIMENSIDN X(-I/2it/2,J). 
J = 1 
I - 2 
END 




SlV#' 




the adjustable array X will be declared as ' X(-4*4,5) on entry to 
subroutine^ SUB. The assignments to *1 and J will not affect fcha,jt. 

d'rC*r.!tdCAOsU 


2.7 EXPRESSIONS 

An expression represents a single value. It can be a ^single basic 
component, such as a constant or variable, or a combination of basic 
components with one or more operators. Operators specify computations 
to be performed, using the values of the basic components, to obtain a 
single value. 

Expressions can be classified as arithmetic, relational, or logical. 
Arithmetic expressions yield numeric values; relational and logical 
expressions produce logical values. 


2.7.1 Arithmetic Expressions 

Arithmetic expressions are formed with arithmetic elements and 
arithmetic operators. The evaluation of such an expression yields a 
single numeric value. 
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An arithmetic element may be any of the following: 


1. A numeric constant 

2. A numeric variable 

3. A numeric array element 

4. An arithmetic expression 

5. An arithmetic function 
references are described 

The term "numeric" in these cases 
logical data, since data of this 
used in an arithmetic context. 


enclosed in parentheses 

reference (Functions and function 
in Chapter 8.) 

can also be interpreted to include 
type is treated as integer data when 


Arithmetic operators specify a computation to be performed using the 
values of arithmetic elements; they produce a numeric value as a 
result. The operators and their meanings are: 

Function 


Exponentiation 
Multiplication 
Division 

Addition and Unary Plus 

Subtraction and Unary Minus 

The above are called binary operators, because each is used in 
conjunction with two elements. The + and - symbols can also be used 
as unary operators when written immediately preceding an arithmetic 
element to denote a positive or negative value. 


Operator 

* ★ 

* 

/ 

+ 


Any arithmetic operator can be used in conjunction with any valid 
arithmetic element except for certain restrictions noted below. 


A value must be assigned to a variable or array element before it can 
be used in an arithmetic expression. 

The following table illustrates the permitted combinations of base and 
exponent data type for the exponentiation operator. 


BASE 

-- .. .... ■■ ' U 

EXPONENT 

Integer 

Real 

Double 

Complex 

Integer 

Yes 

No 

No 

No 

Real 

Yes 

Yes 

Yes 

No 

Double 

Yes 

Yes 

Yes 

No 

Complex 

Yes 

No 

No 

No 
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In addition, a negative element can only be exponentiated by an 
integer element; an element having a value of zero cannot be 
exponentiated by another zero-value element. 

In any valid exponentiation, the result is of the same data type as 
the base element, except in the case of a real base and a double 
precision exponent; the result in this case is double precision. 

Arithmetic expressions are evaluated in an order determined by a 
precedence associated with each operator. The precedence of the 
operators is: 


Operator Precedence 


** First 

* and / Second 

+ and - Third 

Whenever two or more operators of equal precedence (such as + and -) 
appear, they can be evaluated in any order chosen by the compiler so 
long as the actual order of evaluation is algebraically equivalent to 
a left to right order of evaluation. Exponentiation, however, is 
evaluated right to left. For example A**B**C is evaluated as 
A**(B**C). 


2.7.1.1 Use of Parentheses - Parentheses can be used to override the 
normal evaluation order. An expression enclosed in parentheses is 
treated as a single arithmetic element. That is, it is evaluated 
first to obtain its value, then that value is used in the evaluation 
of the remainder of the larger expression of which it is a part. An 
example of the effect of parentheses is shown below (the numbers below 
the operators indicate the order in which the operations are 
performed). 

4 + 3*2-6/2 = 7 

1 t + t 

2 14 3 

(4+3) *2-6/2= 11 

t t t t 

12 4 3 

4 

(4 + 3*2-6)/2 = 2 

t t f 

2 13 4 

((4+3) * 2 - 6) / 2 = 4 

t t t t 

12 3 4 

Evaluation of expressions within parentheses takes place according to 
the normal order of precedence. 
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Nonessential parentheses, such as in the expression 
4 + (3*2) - (6/2) 

have no effect on the evaluation of the expression. 

The use of parentheses to specify the evaluation order is often 
important in high accuracy numerical programs where evaluation orders 
that are algebraically equivalent might not be computationally 
equivalent when carried out on a computer. 


2.7.1.2 Data Type of an Arithmetic Expression - If every element in 
an arithmetic expression is of the same data type, the value produced 
by the expression is also of that type. If elements of different data 
types are combined in an expression, the evaluation of that expression 
and the data type of the resulting value are dependent on a rank 
associated with each data type. The rank assigned to each data type 
is as follows: 


Data Type Rank 

Logical 1 (Low) 

Integer 2 

Real 3 

Double Precision 4 

Complex 5 (High) 


The data type of the value produced by an operation on two arithmetic 
elements of differing type is the same as that of the highest-ranked 
element in the operation. The data type of an expression is the same 
as the data type of the result of the last operation in that 
expression. The way in which the data type of an expression is 
determined is as follows: 

1. Integer operations - Integer operations are performed only on 
integer elements. (When used in an arithmetic context, octal 
constants and logical entities are treated as ^integers.) In 
integer arithmetic, any fraction that can result from 
division is truncated, not rounded. For example, the value 
of the expression 

1/3 + 1/3 + 1/3 
is zero, not one. 

2. Real operations - Real operations are performed only on real 
elements or a combination of real and integer elements. Any 
integer elements present are converted to real type by giving 
each a fractional part equal to zero. The expression is then 
evaluated using real arithmetic. Note, however, that in the 
statement Y = (I/J)*X, an integer division operation is 
performed on I and J and a real multiplication is performed 
on the result and X. 
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Double Precision operations - Any real or integer element in 
a double precision operation is converted to double precision 
type by making the existing element the most significant 
portion of a double precision datum; . the least significant 
portion is zero. The expression is then evaluated in double 
precision arithmetic. 


NOTE 

The conversion of a real element to 
double precision does not increase its 
accuracy. For example, the real number 
0.3333333 becomes 0.3333333000000000 
when converted, not 0.3333333333333333. 
Also note that real and double precision 
elements are only approximate 
representations of actual numbers. 
Values resulting from a real or double 
precision expression are only as 
accurate as the degree of precision for 
that data type. 


Complex operations - In an operation that contains any 
complex element, integer elements are converted to real type 
as previously described. Double precision elements are 
converted to real type by the rounding of the least 
significant portion. The real element thus obtained is 
designated as the real part of a complex nuipber; the 
imaginary part is zero. The expression is then evaluated 
using complex arithmetic and the resulting value is of type 
complex. 


2.7.2 Relational Expressions 

A relational expression consists of two arithmetic expressions 
separated by a relational operator. The value of the expression is 
either true or false, depending on whether or not the stated 
relationship exists. 

A relational operator tests for a relationship between tw*) arithmetic 
expressions. These operators are: 


Operator 

Relationship 

.LT. 

Less than 

.LE. 

Less than or equal to 

.EQ. 

Equal to 

.NE. 

Not equal to 

.GT. 

Greater than 

.GE. 

Greater than or equal to 

periods are 

part of each operator and must be present 
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Complex expressions can be related by the .EQ. and .NE. operators 
only. (If one complex expression is present, the other is converted 
to complex type.) Complex entities are equal if their corresponding 
real and imaginary parts are both equal. 

In a relational expression, the arithmetic expressions are evaluated 
first to obtain their values. Those values are then compared to 
determine if the relationship stated by the operator exists. For 
example, the expression: 

APPLE+PEACH .GT. PEAR+ORANGE 

states the relationship, "The sum of the real variables APPLE and 
PEACH is greater than the sum of the real variables PEAR and ORANGE." 
If that relationship does in fact exist, the value of the expression 
is true; if not, the expression is false. 

All relational operators have the same precedence. Thus, if two or 
more relational expressions appear within an expression, the 
relational operators are evaluated from left to right. Arithmetic 
operators have a higher precedence than relational operators. 

Parentheses can be used to alter the evaluation of the arithmetic 
expressions in a relational expression exactly as in any other 
arithmetic expression; but since arithmetic operators are evaluated 
before relational operators, it is unnecessary to enclose the entire 
arithmetic expression in parentheses. 

When two expressions of different data types are compared by a 
relational expression, the value of the expression having the 
lower-ranked data type is converted to the higher-ranked data type 
before the comparison is made. 


2.7.3 Logical Expressions 

A logical expression may be a single logical element, or may be a 
combination of logical elements and logical operators. A logical 
expression yields a single logical value, true or false. 

A logical element can be any of the following: 

1. An Integer or Logical constant 

2. An Integer or Logical variable 

3. An Integer or Logical array element 

4. A relational expression 

5. A logical expression enclosed in parentheses 

6. An Integer or Logical function reference (Functions and 
function references are described in Chapter 8.) 













FORTRAN STATEMENT COMPONENTS 


The logical operators are: 


Operator Example 


Meaning 


.AND. 

.OR. 


. XOR. 


. EQV. 


A .AND. B 

A .OR. B 


A .XOR * B 


A .EQV. B 


Logical conjunction. The expression is true 
iff and only if, both A and B are true. 

Logical disjunction (inclusive OR). The 
expression is true if, and only if, either A 
or B, or both, is true. 

Logical exclusive OR. The expression is 
true if A is true and B is false, or vice 
versa, but is false if both elements have 
the same value. 

Logical equivalence. The expression is true 
if, and only if, both A and B have the same 
logical value, whether true or false. 


.NOT. 


.NOT. A 


Logical negation. The expression is true 
if, and only if, A is false. 


The delimiting periods of logical operators must be present. 


When a 
result 
with i 
on th 
the in 
intege 
logica 
operat 
type i 


logical opera 
ing value is 
nteger element 
e correspondi 
teger elements 
r and logica 
1 value is fi 
ion is carri 
s integer. 


tor is used to operate on logical elements, the 
° l?9 lca1 ' When a logical operator is used 

s, the logical operation is carried out bit-by-bit 
ng mu tS of ^ h< r internal (binary) representation of 
. The resulting value has type integer. When 
1 values are combined with a logical operator, the 
t converted to an integer value, then the 
ed out as for two integer elements. The resulting 


Evaluation of a logical expression is pe 
of precedence assigned to its operators, 
be evaluated without evaluating all sub- 
A is .FALSE. then the expression A .AND 
is .FALSE.. The value of the expression 
A without evaluating F(X,Y). with 
function subprogram F is not necessar 
resulting from the call can not occur. 


rformed according to an order 
Some logical expressions can 
expressions; for example, if 
(F(X,Y) .GT. 2.0) .AND. B 
can be determined by testing 
this method of evaluation, the 
ily called and side—effects 


A summary of all operators that 
and the order in which they are 


may appear in a logical 
evaluated follows. 


expression, 
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> 


Operator 

Evaluated 

* it 

First 

*,/ 

Second 

+,- 

Relational 

Third ' 

Operators 

Fourth 

.NOT. 

Fifth 

.AND. 

Sixth 

• OR. 

Seventh 

.XOR.,.EQV. 

Eighth 


Operators of equal rank are evaluated from left to right. An example 
of the sequence in which a logical expression is evaluated is as 
follows: 

A*B+C*ABC .EQ. X*Y+DM*ZZ .AND. .NOT. K*B .GT. TT 
is evaluated as: 

( ( (A*B) + (C*ABC)) .EQ. ((X*Y) +(DM*ZZ))) .AND. (.NOT. ( (K*B) .GT.TT)) 


Parentheses may be used to alter the normal sequence of evaluation, 
just as in arithmetic expressions. 

Two logical operators cannot appear consecutively, except where the 
second operator is .NOT.. 
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ASSIGNMENT STATEMENTS 


Assignment statements define the value of a variable or array element 
by evaluating an expression and assigning the resulting value to the 
variable or array element. 

There are three types of assignment statements: 

1. Arithmetic assignment statement 

2. Logical assignment statement 

3. ASSIGN statement 

3.1 ARITHMETIC ASSIGNMENT STATEMENT 

The arithmetic assignment statement assigns the value of the 
expression on the right of the equal sign to the variable or array 
element on the left of the equal sign. The previous value of the 
variable, if any, is lost. 

The arithmetic assignment statement has the form: 
v = e 

v is a numeric variable name or array element name, 
e is an expression. 


The equal sign does not mean "is equal to”, as in mathematics. It 
means "is replaced by". Thus, the statement: 

KOUNT = KOUNT + 1 

means, "Replace the current value of the integer variable KOUNT with 
the sum of that current value and the integer constant 1". 

Although the symbolic name to the left of the equal sign can be 
undefined, values must have been previously assigned to all symbolic 
references in the expression. 

The expression must yield a value that conforms to the requirements of 
the variable or array element to which it is to be assigned (for 
example, a real expression that produces a value greater than 32767 is 
illegal if the entity on the left of the equal sign is an INTEGER*2 
variable). 
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equal 6 Sian ^ ^ variabl ? or arra y element on the left of the 

equal sign is the same as that of the expression on the riqht, the 

TiffTrZl T, ignS , the ValUe If the data types ' are 

f 6 ' ^ L alU ? 2 f fc * e ex P ress ion is converted to the data type 

sunii!rv nf rtL° n tHe le ^ ° f the equal si 9n before it is assigned. A 
summary of data conversions on assignment is shown in Table 3-1. 


Table 3-1 

Conversion Rules for Assignment Statements 




EXPRESSION 

(E) 


VARIABLE 

OR ARRAY 
ELEMENT 
(V) 

INTEGER, 

LOGICAL, 

OR 

OCTAL CONSTANT 

REAL 

> 

DOUBLE 

PRECISION 

COMPLEX 

INTEGER 

Assign E to V 

Truncate E to 
integer and 
assign to V 

Truncate E to 
integer and 
assign to V 

Truncate real 
part of E to 
integer and 
assign to V; 
imaginary part 
of E is not used 

REAL 

Append fraction 
(.0) to E and 
assign to V 

Assign E to V 

Assign MS 
portion of E to 
V; LS portion 
of E is rounded 

Assign real 
part of E to V; 
imaginary part 
of E is not used 

DOUBLE 

PRECISION 

Append fraction 
(.0) to E and 
assign to MS 
portion of V; 

LS portion of 

V is zero 

Assign E to MS 
portion of V? 

LS portion of 

V is zero 

Assign E to V 

Assign real 
part of E to 

MS portion of 

V? LS portion 
of V is zero, 
imaginary part 
of E is not used 

COMPLEX 

Append fraction 

(.0) to E and 
assign to real 
part of V; 
imaginary part 
of V is 0.0 

Assign E to 
real part of V; 
imaginary part 
of V is 0.0 

Assign MS 
portion of E 
to real part of 

V; LS portion 
of E is rounded? 
imaginary part 
of V is 0.0 

Assign E to V 

MS - Most Significant (high-order) 

LS = Least Significant (low-order) 
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Examples 


Valid Statements 
BETA = -l./(2.*X)+A*A/(4.*(X*X)) 

PI = 3.14159 
SUM = SUM+1. 


Invalid Statements 

3.14 = a-b (Entity on the left must be a 

variable or array element.) 

-j = 1**4 (Entity on the left must not be 

signed.) 

ALPHA = ((X+ 6 )*B*B/(X-Y) (Invalid; left and right 

parentheses do not balance.) 


3 - 2 LOGICAL ASSIGNMENT STATEMENT 


The logical assignment statement is similar to the 
assignment statement, but operates with logical data, 
assignment statement evaluates the expression on the right 
equal sign and assigns the resulting logical value to the 
array element on the left. 


arithmetic 
The logical 
side of the 
variable or 


The logical assignment statement has the form: 


v = e 

is a variable or array element of type Logical, 
is a logical expression. 


The variable or array element on the left of the 
type Logical; its value can be undefined. 


equal sign must be of 


Values, either numeric or logical, must have 
to all symbolic references that appear 
expression must yield a logical value. 


been previously assigned 
in the expression. The 


Examples 

PAGEND = .FALSE. 

PRNTOK = LINE .LE. 132 .AND. .NOT. PAGEND 
ABIG = A .GT. B .AND. A .GT. C .AND. A .GT. D 
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ASSIGN 


3.3 ASSIGN STATEMENT 

The ASSIGN statement is used to associate a statement 
integer variable. The variable can then be us cu as a rrans 
destination in a subsequent assigned GO TO statement (see Sect 


label with an 
used as a transfer 
ion 


The ASSIGN statement has the form: 

ASSIGN s TO v 

IS the label of an executable statement in the same proqram 

ASSIGN statement. (It must not be the label of a 
r ukmat statement.) 

> 

v is an integer variable. 

The ASSIGN statement assigns the statement number to the variable in a 

exceDtion** 111 t-h t0 t ^ la K 1 ° f K an arithmetic assignment statement, with one 

refe?encp\nH h L Variable ^ b ^ 0n, ! S defined for us ® as a statement label 
reference and becomes undefined as an integer variable. 

The ASSIGN statement must be executed before the assigned GO TO 
statement(s) in which the assigned variable is to be used. The ASSIGN 

statement and the assigned GO TO statement(s) must occur in the same 
program unit. 

The statement 

ASSIGN 100 TO NUMBER 


associates the variable NUMBER with the statement label 
Arithmetic operations on the variable, such as in the statement 

NUMBER = NUMBER+1 

then become invalid, since a statement label cannot be altered, 
statement: 


100 . 


The 


NUMBER = 10 


dissociates NUMBER from statement 100*, assigns it an 
and returns it to its status as an integer variable, 
be used in an assigned GO TO statement. 


inteqer value 10, 
It can no longer 


Examples 


ASSIGN 10 TO NSTART 
ASSIGN 99999 TO KSTOP 


ASSIGN 250 TO ERROR 


(ERROR must have been defined as an 
integer variable.) 
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CONTROL STATEMENTS 


Statements abnormallyexecuted in the order in which they are 

o P r r 0 g t r r'a fl °: ub by to S an r ot;e e r t se^^n rr o? t th t e e progr^ 

program may' IcluVliery tim Tthll point^lf reached 9 *!®" th*"* *" ^ 
flow, or may be based L a deSlioS^lSe at tJat^oint!" ^ Pr0gram 

Transfer of control, whether within a proqram unit or to Another 
a] ^^no Uni ^ is . Performed by control statements. These statements 
nrnorA V f rn iterative processing, suspension of proqram execution and 
program termination. The various types of control statements are:' 


GOTO 

IF 

DO 

CONTINUE 

CALL 

RETURN 

PAUSE 

STOP 

END 


4.1 GO TO STATEMENTS 

1° statements transfer control within a proqram unit, either to the 

?s%. ;::‘sr:s or to one of a Lt ° f 

The three types of GO TO statements are: 

1. Unconditional GO TO statement 

2. Computed GO TO statement 




3. Assigned GO TO statement 
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4 " 1 ' 1 Unconditional GO TO Statement- 


The unconditional GO TO statement 
statement every time it is executed 


transfers control to the same 


The unconditional GO TO statement has the form: 
GO TO s 


s 


is the label of an executable statement in 
unit as the GO TO statement. 


the 


same 


program 


The unconditional GO TO statement 
identified by the specified label 
an executable statement in the 
statement. 


transfers control to the statement 
• The statement label must identify 
same program unit as the GO TO 


Examples 

GO TO 7734 
GO TO 99999 
GO TO 27.5 




(Invalid; the statement label is improperly 
formed.) 1 


4.1.2 Computed GO TO Statement 

The computed GO TO statement transfers control to a statement based on 
the value of an expression within the statement. acen) ent cased on 

The computed GO TO statement has the form: 

GO TO (slist) (,] e 

SllSt c<-^a St K ° f ° ne ° r more executable statement labels 
transfer list. C ° mmaS - The Iist of labels is called the 

is an arithmetic expression the value of which falls within 

" 1S th * " U " ber ° f statM,ellt = 

The computed GO TO statement evaluates the expression e and if 

statement , fh COri f ertS e the resultin 9 value to integer type. The GO TO 
statement then transfers control to the e'th statement label in the 

ransfer list. That is, if the list contains (30,20,30,40), and the 
20 ^ and^so on. 2 ' th ® G0 T ° stateiI,ent transfers control to statement 

If the value of the expression is less than 1, or areater fh an 

™^ er ° f iabels in the transfer list, control transfers to the first 
executable statement following the computed GO TO. 
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Examples 

GO TO (12,24,36),INCHES 

GO TO (320,330,340,350,360) SITU(J,K)+1 


4 ' 1 * 3 Assigned GO TO Statemonh 

chat aS is 9n represInted a bY m a n ^aMabl ferS R C ° ntr01 t0 3 staten >ent label 
the variable and a specific statement lah^ Se t J e . relation fhip between 
ASSIGN statement, the transfer destin^M^ must be established by an 
upon which ASSIGN statement was most recent ^executeS?" 9 ^' dependin 9 


The assigned GO TO statement has the form: 


V 

si ist 


GO TO v[[,](slist)] 

is an integer variable. 

(when present) is a list of on^ 
statement labels separated by commas. executable 

laLr S iir d most TO rec t L t tir^ssiSnfd rS to 0n ^ 01 t0 tHe statement «hose 

statement. y aSSigned to the variable v by an ASSIGN 

ha - been assigned a 

assignment statement, prio? to the^cut^nL SVsta'^t 

must exist in the^arne"^^!^™ ™it "statement A ? SIG ?. s ta turner, t (s I 
transferred must be executable .u^ifS'LS S?5S?-S°S£SS! “ 

Examples 


GO TO IGO 


GO TO INDEX, (300,450,1000,25) 



4*2 IF STATEMENTS 


IF 


An IF statement causes a 
conditional execution of a 
s ta temen ts: 


conditional 
statement. 


control transfer or the 
There are two types of IF 


1. Arithmetic IF statement 

2. Logical if statement 
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««««« ‘ir-b^^d^oj'the evaI^Uon r of °" tr01 ° r t0 a « aa “te 

statement. nation of an expression within the IF 


4 - 2 - 1 Arithmetic IF Statemont- 

It^an'transfer I control"'to t one o^th^e C ? n ? itional ^"trol transfers, 
of an arithmetic expression. th statements, based on the value 

The arithmetic IF statement has the form: 

IF (e) si, s2, s3 

e is an arithmetic expression. 

51,52,83 labelS ° f * ,ecutabla statements in the same program 

different Statements. ^i/aMired on 1 "* 1 ' ? eed , 5°' rafer to thlee 
statement that immediately foliows'the iS's^eieSt! 8 Cab 1<,fer the 

parentheses*hflnd "hafuansJers^nlror? 1 ''* 168 , the i" 

labels in the transit HS2T M fS??ISSt ° ne ° £ the three stata " a " t 


If the Value is: 


Control Passes to: 


Less than 0 
Equal to 0 
Greater than 0 

Examples 


Label si 
Label s2 
Label s3 


IF (THETA-CHI) 50,50,100 

™“J£*S2 t'Ja a n bS£ r : LSa; t ^ 1 tJe *0 if the real variable 

to statement 100 only if THETA is grelwr ?hl£ CHI? C ° ntC01 pas5as 


IF (NUMBER/2*2-NUMBER) 20,40,20 


™^« at "“ibU*S!mS tl"?* 1 ta atala " a "l if the value of the 

StiXl'. ?^e ; iP3 I ZttSLZ ‘JlSA-Ii Is 

6 ex P r ession can have only negative or zero values. 


4 * 2 * 2 Logical IF Statement 


A logical 

decision 

expression 


IF statement 
to execute 
within the 


causes a conditional 
the statement is based 
statement. 


statement execution. The 
on the value of a logical 
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Ihe logical IF statement has the form: 
IF (e) st 

is a logical expression. 


st 


executaS*^ FORTRAN statement. The statement can be any 
^ statement! e ’ ,cept ‘ D ° state ” e '' t °r another logic.] 


I=sl™:= ;ss:i 


Examples 


IF (J .GT. 4 .OR. J .LT. 1) GO TO 250 

IF (REF(J,K) .NE. HOLD) REF(J,K) = REF(J,K)*(-1D0) 

IF (ENDRUN) CALL EXIT 


4.3 DO STATEMENT 

statement e cJuses e the S Itatements e iJ f its lterati ( e Processing. The DO 
a specified number of Umes “ S r *" 9 * to be repeatedly executed 

The DO statement has the form: 

DO s[,J i=el,e2(,e3] 

is the label of an executable statement. The statement 
must physically follow in the same program unit. 

i is an integer variable. 

el,e2,e3 are integer expressions. 

a5® 1 Jf called the control variable of the DO and el e2 e 3 

respectively. * th^iicJemenJ 6 ™ 1 " 81 \ and increment Parameters 
increment vLe of 1 is use* is omitted, a default 

ZUtVS 1 ™ 1 sta f tLent l0 °?/ S identified »>y the label that 

a'' logical ifT ejen^'or"anotherDO^s't^ent? 

Provided it does not contain statem^s?* 1 Statement ' 


DO 
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SwSS lu! Can The e inU f i i VP t T EGEfi * 2 ' 

increment parameters can be L! f 0,i ' * he terminal, and 

to the type of the control before * 

d«.“u. t *“”Se t . for 8 the 6 initial 8 te” 6 e ? pr * ssi °" s el - «, e3 to 
The value of the initial parameter i/?|! na1 ' anc ? lncremenc parameters, 
variable. Theexecrable Vttlli ? then assigned to the control 
chen executed repeatedly. ments in the range of the DO loop are 

If the increment parameter is positive, the value of th*» t- . 

parameter must not be less than that nf Jh — . tbe terminal 
Conversely, if the increment . at of the initial parameter. 

terminal ^.rametlr mis" 6 "of be ^eafeJ'^hir'tiHr ° f - the 

perameter. The value of the inc^r^me 1,81 

i's e g ;™S 6 by° f executio,,s ° f the 00 range, called the iteration count, 


e2 - el 
e3 


+1 


2^'Wise ^viKoa^t-ie'tr s*;. - 

once 1 ! 6 iCeration count is zer ° or negative, then the loop is executed 


4 *3.1 DO Iteration Control 

is?ii , !i 1 :ri."s t sr ut ‘ OB ° £ th6 ter ” i8 *' 

FtF?oni t rol b :.liSZ: nt parameter is algebraically added 

2. The iteration count is decremented. 

3. If the iteration count value is greater than zero, control is 

DC^statemenf f° th& £ irs ^ executable statement following the 
DO statement for another iteration of the range. 9 

4 ' terminates £eCat£ ° n C ° Unt iS zer0 ' of the DO 

|srgH“d£-;::i ssaass 

outermost DO, con?Jol*?raiSilr“ t ?o , ’'ihr“f-T t ' ° r ” this D0 is the 
following the terminal statement. executable statement 
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The value of the control variable, terminal parameter, or 
parameter must not be altered within the range of the DO statement. 
The control variable is available for reference as a vartab e wi 
the range. 

In FORTRAN IV-PLUS, the terminal and increment par c9n be 
modified „Uhin the loop without effecting the iteration count. 

The range of a DO loop can contain other DO statements, as long as 
those "nested" DO loops conform to certain requirements (see Section 

4.3.2) . 

Control can be transferred out of a DO loop, but cannot be transferred 
into a loop from elsewhere in the program. Exceptions to this rule 
are described in Sections 4.3.3 and 4.3.4. 


Examples 


DO 100 K=l,50,2 


(25 iterations, K=49 during final 
iteration) 


DO 350 J=50,-2,-2 (27 iterations, J=-2 during final 

iteration) 


DO 25 IVAR=1,5 

DO NUMBER=5,40,4 
DO 40 M=2.10 


(5 iterations, IVAR=5 during final 
iteration) 

(Invalid; statement label missing) 

(Invalid; decimal point instead of comma) 

a valid 


The last example illustrates a common clerical error. It is 
arithmetic assignment statement in the FORTRAN language: 

DO40M = 2.10 


4.3.2 Nested DO Loops 

A DO loop may contain one or more complete DO loops. The range of an 
inner nested DO must lie completely within the range of the next outer 
loop. Nested loops may share the same terminal statement. 
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Correctly Nested 
DO Loops 


Incorrectly Nested 
DO Loops 


DO 45 K*l,10 
DO 35 L=2,50,2 
35 CONTINUE 

DO 45 M=l,20 
L 45 CONTINUE 



DO 15 K=l,10 


• 


DO 25 L»l,20 

15 

CONTINUE 

• 


• 

DO 30 M*l,15 

• 

25 

• 

CONTINUE 

-30 

CONTINUE 


Figure 4-1 
Nesting of DO Loops 


4.3.3 Control Transfers in DO Loops 

Within a nested DO loop structure, control can transfer from an inner 
loop to an outer loop. A transfer from an outer loop to an inner loop 
is illegal. 

If two or more nested DO loops share the same terminal statement, 
control can be transferred to that statement only from within the 
range of the innermost loop. Any other transfer to that statement 
constitutes a transfer from an outer loop to an inner loop because the 
shared statement is part of the range of the innermost loop. 


4.3.4 Extended Range 

A DO loop is said to have an extended range if it contains a control 
statement that transfers control out of the loop and if, after the 
execution of one or more statements, another control statement returns 
control back into the loop. In this way the range of the loop is 
extended to include all of the executable statements between the 
destination statement of the first transfer and the statement that 
returns control to the loop. 
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The following rules govern the use of a DO statement extended range: 


1. A transfer into the range of a DO statement is permitted 
only if the transfer is made from the extended range of that 
DO statement. 

2. The extended range of a DO statement cannot change the 
control variable or parameters of the DO statement. 

CONTINUE 


4.4 CONTINUE STATEMENT 

The CONTINUE statement simply transfers control to the next executable 
statement. It is used primarily as the terminal statement of a DO 
loop when that loop would otherwise end with a GO TO, arithmetic IF, 
or other prohibited control statement. 

The CONTINUE statement has the form: 


CONTINUE 


CALL 

4.5 CALL STATEMENT 

The CALL statement causes the execution of a SUBROUTINE subprogram; 
it can also specify an argument list for use by the subroutine. (The 
definition and use of subroutines is treated in detail in Chapter .) 
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The CALL statement has the form: 

CALL s[([a] [, [a] ] . . .)] 

s is the name of a SUBROUTINE subprogram, a user-written 
assembly language routine, or a DEC-supplied system 
subroutine, or a dummy arqument associated with one of the 
above. 


is an actual argument, 
in Section 8.1. 


Actual arguments are described fully 


The CALL statement associates the values in the argument list (if the 
list is present) with the dummy arguments in the subroutine and then 
transfers control to the first executable statement of the subroutine. 

The arguments in the CALL statement>must agree in number, order, and 
data type with the dummy arguments in the subroutine definition. They 
can be variables, arrays, array elements, constants, expressions, 
alphanumeric literals, or subprogram names (if those names have been 
specified in an EXTERNAL statement, as described in Section 7.6). An 
unsubscripted array name in the argument list refers to the entire 
array. 


Examples 




CALL CURVE (BASE,3.14159+X,Y,LIMIT,R(LT+2)) 
CALL PNTOUT (A, N, 'ABCD ') 

CALL EXIT 


RETURN 


4.6 RETURN STATEMENT 

The RETURN statement is used to return control from a subprogram unit 
to the calling program unit. 

The RETURN statement has the form: 

RETURN 

When a RETURN statement in a FUNCTION subprogram is executed, it 
returns control to the statement that contains the function reference 
(see Section 8.2.2). When a RETURN statement in a SUBROUTINE 
subprogram is executed, it returns control to the first executable 
statement following the CALL statement which initiated execution of 
the subprogram. 

A RETURN statement must not appear in a main program unit. 


Example 


100 


SUBROUTINE CONVRT (N,ALPH,DATA,PRNT,K) 
DIMENSION DATA(N),PRNT(N) 

IF (N .LT. 10) GO TO 100 
DATA(K+2) 

N = N/10 
DATA(K+l) 

PRNT(K+2) 

PRNT(K+l) 

RETURN 
PRNT(K+2) 

RETURN 
END 


= N-(N/10)*N 
= N 

= ALPH(DATA(K+2)+1) 
= ALPH(DATA(K+l)+1) 

= ALPH(N+l) 
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4 • 7 EAUSE STATEMENT 

scacem ^ nt temporarily suspends program execution to permit 
some action on the pare of the user. ' F 

The PAUSE scacement has the form: 

PAUSE [disp] 

disp is a decimal digit string containing one to five digits. an 
31 phan ume r ic literal * or an octal constant. 

The PAUSE statement prints the display (if one has been specified) at 
e user s terminal, suspends program execution, and waits for user 
response. When the user enters the appropriate control command, 
execution resumes with the first executable statement 


PAUSE 


program 


following the PAUSE. 

Examples 

PAUSE "13731 

PAUSE 'MOUNT TAPE REEL #3' 


4.8 STOP STATEMENT STOP 

The STOP statement is used to terminate program execution. 

The STOP statement has the form: 

STOP [disp] 

disp is a decimal digit string containing one to five digits, an 
alphanumeric literal, or an octal constant. 

Ihe STOP statement prints the display (if one has been specified) at 
the user's terminal, terminates program execution, and returns control 
to the operating system. 


Examples 


STOP 98 


STOP "7777 
99999 STOP 


STOP 'END OF RUN' 
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END 


4 • 9 END statement 

mSstT - h C r?«c? C markS , the end 0f a program unit. The END statement 
st be the last source line of every program 'unit. 

The END statement has the form: 

END 

J? 3 !! ain program ' if control reaches the END statement, execution of 
in.pli?Itly a executed minated; ° subprogram ' a RETURN statement is 
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CHAPTER 5 


INPUT/OUTPUT STATEMENTS 


5.1 OVERVIEW 


Input of data by a FORTRAN program is performed by READ and ACCEPT 
statements. Output is performed by WRITE, TYPE, and PRINT 
statements. Some forms of these statements are used in conjunction 
with format specifications which control translation and editing of 
the data between internal representation and character (readable) 
form. 

Each READ or WRITE statement contains a reference to the logical unit 
to or from which data transfer is to take place. A logical unit can 
be connected to a device or file. The TYPE and ACCEPT statements have 
no such reference, as they cause data transfer between the processor 
and an implicit logical unit that is normally connected to the user's 
terminal. Similarly, the PRINT statement outputs data to an implicit 
logical unit that is normally connected to the line printer. 

READ and WRITE statements fall into the following categories: 

1. Unformatted Sequential I/O 

Unformatted sequential READ and WRITE statements transmit 
binary data without translation. 

2. Formatted Sequential I/O 

Formatted sequential READ and WRITE statements transmit 
character data using format specifications to control the 
translation of data to characters on output, and to internal 
form on input. 

3. Unformatted Direct Access I/O 

Unformatted direct access READ and WRITE statements transmit 
binary data without translation to and from direct access 
files. 


4. Formatted Direct Access I/O 

Formatted direct access READ and WRITE statements transmit 
character data to and- from direct access files using format 
specifications to control the translation of data to 
characters on output and to internal form on input. 
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5. List-Directed Sequential I/O 

List-directed sequential READ and WRITE statements transmit 
character data. The translation to internal form on input 
and to characters on output is controlled by the data type of 
the corresponding I/O list element. 


Any type of READ or WRITE statement can transfer control to another 
statement if an error condition or end-of-file condition is detected. 

The auxiliary I/O statements, REWIND, FIND, and BACKSPACE do not 
perform data transfer, but do file positioning functions. The ENDFILE 
statement writes a special form of record that will cause an 
end-of-file condition (and END= transfer) when read by an input 
statement. The DEFINE FILE statement declares a logical unit to be 
connected to a direct access file and specifies the characteristics of 
the file. Finally, there are the ENCODE and DECODE statements, which 
perform data transfer and translation within memory. 


PDP-11 FORTRAN provides two additional auxiliary I/O statements: 
OPEN and CLOSE. The OPEN statement establishes a connection between a 
logical unit and a file or device and it declares the attributes 
needed for READ and WRITE operations. The CLOSE statement terminates 
che connection between a file or device and a logical unit. 


5.1.1 Input/Qutput Devices and Logical Unit Numbers 

PDP-11 FORTRAN uses the I/O services of the operating system and thus 
supports all peripheral devices that are supported by the operating 
system. I/O statements refer to I/O devices by means of logical unit 
numbers. A logical unit number is an integer constant or variable 
with a positive value. 

Some forms of I/O statements do not contain a logical unit number. 
These statements use an implicit logical unit number that is system 
specific. Consult the appropriate FORTRAN User's Guide for details. 

In FORTRAN iv-PLUS, a logical ..-unit ,mj«ber can be an expression, which 
is converted, if necesaary, fp integer type prior to use. 


5.1.2 Format Specifiers 

Format specifiers are used in formatted I/O statements. A format 
specifier is either the statement label of a FORMAT statement or the 
name of an array containing Hollerith data in terpretable as a format. 
Chapter 6 discusses FORMAT statements. 
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The asterisk character (*) can be used as 
list-directed formatting. Section 5.7 
formats. 


a format specifier to denote 
describes list-directed 


5.1.3 Input/Oucpuc Records 

Input/Output statements transmit all data in terms of records. The 
amount of information that can be contained in one record, and the way 
in which records are separated, depend on the medium involved. 

For unformatted I/O, the amount of data to be transmitted is specified 
by the I/O statement. The amount of information to be transmitted by 
a formatted I/O statement is determined jointly by the I/O statement 
and specifications in the associated .^format specification. 

The beginning of execution of an input or output statement initiates 
the transmission of a new record. If an input statement requires only 
part of a record, the excess portion of the record is lost. In the 
case of formatted sequential input or output, one or more additional 
records can be transmitted by a single I/O statement. 


5.2 INPUT/OUTPUT LISTS 

An I/O list specifies the data items to be manipulated by the 

statement containing the list. The I/O list of an input or output 

statement contains the names of variables, arrays, and array elements 
whose values are to be transmitted. In addition, the I/O list of an 
output statement can contain constants and expressions. 

An I/O list has the form: 

s[ ,s] ... 

where each s is a simple list or an implied DO list. The I/O 

statement assigns' input values to, or outputs values from, the list 

elements in the order in which they appear, from left to right. 


5.2.1 Simple Lists 

A simple I/O list element consists of a single variable, array 
reference, array element, constant, or expression. A simple I/O list 
consists either of a simple I/O list element or a group of two or 
more simple I/O list elements separated by commas and enclosed by 
parentheses. 

When an unsubscripted array name appears in an I/O list, a READ or 
ACCEPT statement inputs enough data to fill every element of the 
array; a WRITE, TYPE, or PRINT statement outputs all of the values 
contained in the array. Data transmission begins with the initial 
element of the array and proceeds in the order of subscript 
progression, with the leftmost subscript varying most rapidly. For 
example, if the unsubscripted name of a 2—dimensional array defined 


ARRAY(3,3) 


5-3 


June 1977 














INPUT/OUTPUT STATEMENTS 


appears in a HEAD statement . 

and“so ^hcoU'^o'lf:*’ ' “ l,flY l2"l)“«BRA?(3l?, 1 rAR R «“l, 2 ;^ 

in array °Lbscrip t r a i t ater t, in ar t i he le ii^' thG iJ /0 “ St may ^ U£ed 

statement: list. If, for example, the 

RRAD (i/1250) J,K,ARRAY(J,K) 

1250 FORMAT (II,X,I1,X,F6.2) 

was execute^ and the input record contained the values: 

1,3,721.73 

the value 721.73 is assiqned to array( l mu £ . 

assiqned to J = n ri t-h^ „ , KRAY(1,3). The first input value is 

subscript values for ARRAY ( j^k )*. ^eOabU^tha^aJe 1 * the a ; tual 

ar^riKLript. thiS fbe 

£~IL‘ ?1~“ w 


An expression must not be included in „„ illMU . 
except as a subscript expression in an array reference. 


I/O list 


This type of 
I/O statement 


5-2.2 Implied DO Lists 

transmit C,0 only tS part “of £ XrSy ^cv‘to’t ‘°" "L thln U ° llst ' t0 

sequence .th.? tS.» ttS'orSSr'S^-SibSIr ia a 
that resides in ^(/loop, ^nd^ha!? iser^he^ont^ol Variable’ of the 

Ss-tLa^r^rStt-atfoTi^bfi^ 1 - « »A l :«.™ f to‘K 

An implied DO list has the form: 

(Iist,i=el,e2[,e3]) 

H st is an I/O list. 


el*e2,e3 


is a control variable definition, 
are parameter definitions. 


1/ el, e2 and e3 have the same form 
The rules for the initial, terminal 
the control variable of an implied 
the DO statement (see Section 4.3). 
initial, terminal, or increment par 
long as it conforms to the rules in 
references to the control variable 
not altered. The r 


variable is 
For example 


as that used in the DO statement, 
and increment parameters, and for 
DO list are the same as those for 
An expression may be used for the 
ameter of an implied DO list, as 
Section 4.3. The list may contain 
as long as the value of the control 
ange of the implied DO is the list. 
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WRITE (3,200) (A,B,C, 1=1,3) 

WRITE (6,15) L,M, (I, (J,P(I) ,Q(I,J) ,J=1,L) ,I = 1,M) 

READ (1,75) ( ( (ARRAY (M, N, I) , I = 2,'8), N=2,8), M=2,8) 

The first control variable definition is equivalent to the innermost 

„ v °f a ^ et nested loops, and therefore varies most rapidly. For 
example, the statement: 

WRITE (5,150) ((FORM(K,L), L=l,10), K=l,10,2) 

150 FORMAT (F10.2) 

is similar to: 


DO 50 K=1,10,2 
DO 50 L=1,10 
WRITE (5,150) FORM(K,L) 
150 FORMAT (F10.2) 

50 CONTINUE 


Since the inner DO loop is executed ten times for each iteration of 
the outer loop, the second subscript, L, advances from one through ten 
for each increment of the first subscript. This is the reverse of the 
order of subscript progression. Also, since K is incremented by two, 
only the odd-numbered columns of the array will be output. 


The entire list of the implied DO is transmitted before the 
incrementation of the control variable. For example: 

READ (3,999) (P(I), (Q(I,J), J=l,10), 1=1,5) 


assigns input values to the elements of arrays P and Q in the order: 


P(l) , Q(1,1) , Q(1,2) , . . . 
P (2) , Q (2,1) , Q (2,2) , . . . 


, 0 ( 1 , 10 ), 
, Q(2,10) , 


P(5) , Q(5,‘l) , Q(5,*2) , ... , Q (5,10) 

When processing multidimensional arrays, it is possible to use a 
combination of-fixed subscripts and subscripts that vary according to 
an implied DO. For example: 


READ (3,5555) (BOX(l,J), J=l,10) 

assigns input values to BOX(l,l) through BOX(1,10), 
without affecting any other element of the array. 


then terminates 


It is also possible to output the 
directly, as in the statement: 

WRITE (6,1111) (I, 1=1,20) 

which simply prints the integers one 


value of the control variable 


through twenty. 
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The unformatted sequential WRITE statement has the form: 
WRITE (u[,ERR=s]) [list] 

U is a logical unit number, 
s is an executable statement label, 
list is an I/O list. 

If an unformatted WRITE statement contains no I/O list 
record is output to the specified unit. 

Examples 


one null 


WRITE (1) (LIST(K),K=1,5) (Output the contents of elements 

1 through 5 of array LIST to 
logical unit 1.) 


WRITE (4) 


(Write a null record on logical 
unit 4.) 


5.4 FORMATTED SEQUENTIAL INPUT/OUTPUT 

in P ut and output statements are used in conjunction with 
FORMAT statements (or format specifications stored in arrays) to 
translate and edit data on output for ease of interpretation, and, on 
input, to convert data from external format to internal format. 


READ 

5* 4• 1. Formatted Sequential READ Statement 

The formatted sequential READ statement transfers data from the 
specified logical unit. The characters transmitted are converted to 
internal format as specified by the format specification. The 
resulting values are assigned to the elements of the I/O list. 

The formatted sequential READ statement has the forms: 

READ fi f list] 

READ (u,f [,END=s] [,ERR=s]) [list] 
u is a logical unit number, 

f is a format specifier, 

s is an executable statement label, 

list is an I/O list. 

If the FORMAT statement associated with a formatted input statement 
contains a Hollerith constant or alphanumeric literal, input data will 
be read and stored directly into the format specification. For 
example, the statements 

READ (5,100) 

100 FORMAT (5HADATA) 
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cause five characters to be read and stored in the Hollerith format 
descriptor. If the characters were HELLO, statement 100 would become: 


c 


100 FORMAT (5HHELLO) 


A statement of the form: 


READ 200, ALPHA,BETA,GAMMA 


causes data to be read from a system dependent logical unit. 

If the number of elements in the I/O list is less than the number of 
fields in the input record, the excess portion of the record is 
discarded. If the number of list elements exceeds the number of input 
fields, an error condition results unless the format specifications 
state that one or more additional records are to be read (see Sections 
6.4 and 6.8). 

If no I/O list is present, data transfer is between the record and the 
format specification. 



Examples 


READ (1,300) ARRAY 
300 FORMAT (20F8.2) 


(Read a record from 
logical unit 1, assign 
fields to ARRAY.) 


READ (5,50) 


(Read 25 characters 


50 FORMAT (25HAPAGEAHEADINGAGOESAHEREAA) from logical unit 5, 


place them 
in the FORMAT 
statement.) 



5.4.2 Formatted Sequential WRITE Statement 

The formatted sequential WRITE statement transfers data to the 
specified logical unit. The I/O list specifies a sequence of values 
which are converted to characters and positioned as specified by the 
format specification. 

The formatted sequential WRITE statement has the form: 



WRITE (u,f [ ,ERR = s]) [list] 
is a logical unit number. 


u 


f is a format specifier 


is an executable statement label 


s 


list is an I/O list. 

If no I/O list is present, data transfer is entirely between the 
record and the format specification. 

The data transmitted by a formatted sequential WRITE statement 
normally constitutes one formatted record. The format specification 
can, however, specify that additional records are to be written during 
the execution of that same WRITE statement. 
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Numeric data output under format control is rounded during 

? e ? ternal format. (If such data is subsequently 
tor additional calculations, loss of precision may result. In 
case, unformatted output is preferable to formatted output.) 


the 

input 

this 


The records transmitted by a formatted 
the length that can be accepted by the 
a line printer typically cannot print a 
characters. 


WRITE statement must not exceed 
specified device. For example, 
record that is longer than 132 


Examples 


WRITE (6, 650) 

650 FORMAT ('AHELLO,ATHERE 1 ) 


WRITE (1,95) AYE,BEE,CEE 
95 FORMAT (F8.5,F8.5,F8.5) 

WRITE (1,950) AYE,BEE,CEE 
950 FORMAT (F8.5) 


In the last example 
parenthesis of the 
list have been output, 
terminated and a 
records are written. 


(Output the contents of the 
FORMAT statement to logical unit 
6 .) 

(Write one record of three 

fields to logical unit 1.) 

(Write three separate records 

of one field each to logical 

unit 1.) 

rightmost 
of the I/O 
record is 
three separate 


format control arrives at the 
FORMAT statement before all elements 
Each time this occurs, the current 
new record is initiated. Thus 
(See Section 6.7.) 


5.4.3 Formatted ACCEPT Statement 


ACCEPT 


The function of the ACCEPT statement is identical to that of the 
formatted READ statement, except that input is read from a logical 
unit normally connected to the terminal keyboard. 

The ACCEPT statement has the form: 

ACCEPT f[,list] 

f is a format specifier. 

list is an I/O list. 


The rules for the format reference and I/O list of an ACCEPT statement 
r re A , * e same as those for the formatted READ statement (Section 


Examples 

ACCEPT 100, NUMBER 
100 FORMAT (14) 

ACCEPT 200 

200 FORMAT ( 1 PUTADATAAHERE') 


(Accept one Integer value from 
terminal keyboard.) 

(Read 13 characters from 
keyboard, place them in the FORMAT 
statement.) 
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TYPE 

5.4.4 Formatted TYPE Statement 

The TYPE statement functions identically to the formatted WRITE 
statement except that output is directed to a logical unit normally 
connected to the terminal printer. 

The TYPE statement has the form: 

TYPE f[,list] 


f is a format specifier, 
list is an I/O list. 


The rules 
are the 

5.4.2). 


for the format reference and I/O list of a TYPE statement 
same as those for the formatted WRITE statement (Section 


Examples 

TYPE FMT, BOLD (Display the contents of 

BOLD on terminal in the 
format specified by contents 
of array FMT. See Section 
5.4) 


400 


TYPE 400 (Type message from FORMAT 

FORMAT ('AmOUNTANEWATAPEAREEL') statement on terminal.) 


PRINT 

5.4.5 Formatted PRINT Statement 


The function of the PRINT statement is the same as 
formatted WRITE statement and TYPE statement, except 
directed to a logical unit normally connected to a line 


that of the 
that output is 
printer. 


The PRINT statement has the form: 
PRINT f [ ,list] 
f is a format specifier, 
list is an I/O list. 


The format reference and I/O list in a PRINT statement follow the same 
rules as specified for the formatted sequential WRITE statement 
(Section 5.4.2). 


Examples 


PRINT 999, NPAGE 

99 9 FORMAT (1H1,100X, ' PAGE AA',13) 


PRINT 222 

222 FORMAT ('AENDAOFALISTING 1 ) 


(Print the page number in 
upper right-hand corner of new 
page.) 

(Print the contents of FORMAT 
statement on line printer.) 















INPUT/OUTPUT STATEMENTS 


5.5 UNFORMATTED DIRECT ACCESS INPUT/OUTPUT 


Unformatted direcc access READ and WRITE statements are used to 
d * rect access I/O with a file on a direct access device. The 
DtHNL file or OPEN statement is used to establish the number of 
records, and the size of each record, in a file to which direcc access 
I/O is to be performed. Each direct access READ or WRITE statement 
contains an integer expression that specifies the number of che record 
co be accessed. The record number must not be less chan one nor 
greater chan the number of records defined for the file. 


In FORTRAN IV-PLUS the expression that specifies the record number can 


be of any type, 


It is converted to in( 

. si!2 fSI 


necessary. 




M lx#*' ifeHf tK, it i i 


5.5.1 Unformatted Direct Access READ Statement 


READ 


The unformatted direct access READ statement positions the input file 
to a specified record and transfers the fields in that record to the 
elements in the I/O list without translation. 

The unformatted direct access READ statement has the form: 


READ (u ' r [ ,ERR=s]) [list] 
u is a logical unit number, 

r is the record number, 

s is an executable statement label, 

list is an I/O list. 

If there are more fields in the input record than elements in the I/O 

list, the excess portion of the record is discarded. If there is 

insufficient data in the record to satisfy the requirements of the I/O 
list, an error qondition results. 

The unit number in the unformatted direct access READ statement must 
refer to a unit that has been previously defined for direct access 
processing . 

Examples 

READ (1’10) LIST(l),LIST(8) (Read record 10 of a file on 

logical unit 1, assign two 
Integer values to specified 
elements of array LIST.) 

READ (4*58) (RHC(N),N=1,5) (Read record 58 of a file on 

logical unit 4, assign five 
Real values to array RHO.) 
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5.5.2 Unformatted Direct Access WRITE Statement 

The unformatted direct access WRITE statement transmits the values of 
the elements in the I/O list to a particular record of a direct access 
tile. The data is written in internal format' without translation. 

The unformatted direct access WRITE statement has the form: 

WRITE (u'rf,ERR=s]) [list] 
u is a logical unit number, 

r is the record number, 

s is an executable statement label, 

list is an I/O list. 

If the amount of data to be transmitted exceeds the record size, an 
error condition results. If the WRITE statement does not completely 
fill the record with data, the contents of the unused portion of the 
record are zero-filled. 

Examples 

WRITE (2*35) (NUM(K),K=1,10) (Output ten Integer values to 

record 35 of the file 
connected to logical unit 2.) 

WRITE (3*J) ARRAY (Output the entire contents 

of ARRAY to the file 
connected to logical unit 3 
into the record indicated by 
the value of J.) 


5.6 FORMATTED DIRECT ACCESS INPUT/OUTPUT 

Formatted direct access READ and WRITE statements are used to perform 
direct access I/O of character data with a file on a direct access 
device. The OPEN statement is used to establish the attributes of the 
file. Each READ or WRltE contains an expression that specifies the 
number of the record to be accessed. The record number must not be 
less than one nor greater than the number of records defined for the 


READ 


5 - 6 * 1 Formatted Direct Access READ Statement 

The formatted direct access READ statement inputs the specified record 
from the direct access file currently connected to the unit. The 
characters in the record are converted as speqified by the format 
specification. The resulting values are assigned to the elements 
specified by the list. 
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The formatted 


direct access READ statement has the,form 

(u’r,f[,ERF«a])[list] 

■ 

logical unit number. 

' *. ' « "-./o'-- : 

r is the record number. 

/ ,Vv- 

f is a formet specifier. 

, i- \* • . ■" ;■ 

s is an executable statement lab#l,y 
list is an i/G list. 

: . ■ ^lix'x\ . > ,v*HU* * % 

If the I/O list and format specify more characters t 
contains, or specify additional records. ka.!aSraffiHSdUfMte 


READ 


5 * 6 * 2 formatted Direct Access WRITE Stateme^te - 

The formatted direct access WRITE Statement 
record to the direct access file that is cur 
unit. The list specifies a sequence of valued 
characters and positioned as specified by the f< 

The formatted direct 


access WRITE s ta tement has the form: 

WRITE (u'r ,f (,ERR=»s] ) [list] 
u is a logical unit number, 

r is the record number, 

f is a format specifier, 

s is an executable statement label, 

list is an I/O list. 


not fill the record 


specify additional records 

•»** * ' * '.£Mk fJ^SESHT 


5-7 LIST-DIRECTED INPUT/OUTPUT 


List directed input and output statemen 
obtaining simple sequential formatted input 
for FORMAT statements. On input, values 
converted to internal format, and assigned 
list. On output, values in the I/O list ar 
and written in a fixed format according to 
The I/O list must be present. Records writ 
statements are suitable for input by lis 
provided they do not contain alphanumer 
constants. 


ts provide a method for 
or output without the need 
are read from the unit, 
to the elements of the I/O 
e converted to characters 
the data type of the value, 
ten by list-directed output 
t-directed input statements 
ic literals or Hollerith 
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Both formatted and list-directed I/O statements can refer to the same 
unit. All operations permitted for formatted sequential I/O are 
supported with list-directed I/O statements; however, backspacing 
over list-directed records leaves the file position undefined. When 
files are read that contain both formatted and list-directed records, 
the user program must assure that each record is read properly. 

READ 

5.7.1 List-Directed READ Statement 

The list-directed READ statement transfers data from the specified 
unit, translates from external to internal format, and assigns the 
input values to the elements of the I/O list in the order in which 
they appear, from left to right. 

The list-directed READ statement has the form: 

READ * , 1ist > 

READ (u,*[,END=s][,ERR=s]) list 

u is a logical unit number. 

* indicates list-directed formatting. 

s is an executable statement label. 

list is an I/O list. 

The external record contains a sequence of values and value 
separa tors. 

A value can be: 

1. A constant 

Each input constant has the form of the corresponding FORTRAN 
constant. A complex constant has the form of a pair of real 
or integer constants separated by a comma and enclosed in 
parentheses. Spaces can occur between the open parenthesis 
and the first constant, around the separating comma and 
between the second constant and the close parenthesis. A 
logical constant is either T for .TRUE. or F for .FALSE. 
Hollerith, octal, and alphanumeric constants are not 
permitted . 

2. A null value 

A null value is specified by two consecutive commas with no 
intervening constant. Spaces can be embedded between the 
commas. A null value specifies that the corresponding list 
element is to remain unchanged. A null value cannot be used 
for either part of a complex constant, but can represent an 
entire complex constant. 

3. A repetition of constants in the form r*c 

The form r*c indicates r occurrences of c where r is a 
non—zero, unsigned integer constant and c is a constant. 
Spaces are not permitted except within the constant c as 
specified above. 
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4. A repetition of null values in the form r* 

The form r* indicates r occurrences of null where r is an 
unsigned integer constant. 

A value separator can be: 

1. one or more spaces or tabs 


2 . 

3. 


a comma with or without surrounding spaces or tabs 

a slash with or without surrounding spaces or tabs 

A slash separator causes termination of processing on the 
input statement and record; all remaining I/O list elements 
are unchanged. 


Spaces at che 


The end of a record is equivalent to a space character, 
beginning of a record are ignored* 

• 

The types of acceptable input constants are: integer, real, double 

precision, logical and complex. The data type of the value and the 
version from external to internal form is determined by the form of 
the constant. if the data types of the list element and the 
corresponding cons tant do not match, conversion is performed according 
to the rules for arithmetic assignment described in Table 3-1. 

Each input statement will read one or more records as required to 

the 1 l St : If a11 ° f khe values i n a record are not used, 

either because a slash separator is encountered or the I/O list is 
exhausted, the remaining values in the record are lost. 

Example 

If the program unit consists of 


DOUBLE PRECISION T 
COMPLEX C,D 
LOGICAL L,M 

READ (1,*) I,R,C,D,L,M,J,K,S,T,A,B 


and the record read contains: 

4A6.3A(3.4,4.2) ,A(3,A2 ) A,AT,F,,3*14.6A/ 

The following values are assigned to the I/O list elements 

1 = 4 
R = 6.3 
C = (3.4,4.2) 

D = (3.0,2.0) 

L = .TRUE. 

M = .FALSE. 

K = 14 
S = 14.6 
T = 14.6 DO 

A, B and J will be unchanged. 
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W WRITE 

9 


5.7.2 List-Direcced WRITE Statement 

The list-directed WRITE statement transmits*the elements in the I/O 
list to the specified unit, translating and editing each value 
according to the data type of the value. 

The list-directed WRITE statement has the form: 

WRITE (u,*[,ERR=s]) list 

is a logical unit number. 

indicates list-directed formatting. 

s is an executable statement label. 

list is an I/O list. ^ 

The forms of the output values produced are the same as that required 
for input as described for the list-directed READ statement (Section 
5.7.1). In addition, alphanumeric literals and Hollerith constants 
can be output; these constants are not delimited by apostrophes. The 
values produced are separated by one space. Each value is transmitted 
in a default format as illustrated in Table 5-1. 


u 

★ 




Table 5-1 

List-Directed Output Formats 


Data Type 

Output format 

Logical*l 

15 

Log ical* 4 

L2 

Integer*2 

17 

Integer*4 

112 

Rea1 * 4 

1PG15.7 

Real*8 

1PG25.16 

Complex*8 

IX, 1 (' ,1PG14.7, 1PG14.7 , 1 ) 1 

Alphanumeric literals 

lX,nAl (n=length of the 

literal string) 


Octal values, null values, slash (/) separators, and repeated forms 
are not produced. Each output record begins with a space for carriage 
control. Each output statement writes one or more complete records. 
Each value is contained within a single record, except for 
alphanumeric literals which are longer than a record. 


Example 


The program unit 


DIMENSION A(5) 

DATA A/5*3.4/ 

WRITE (1,*) ■ARRAYAVALUESAFOLLOW' 

WRITE (1,*) A,5 


C 
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PRINT 

5. 7 .5 List-Directed PRINT Statement 

The list-directed PRINT statement functions identically to the 
list-directed WRITE statement, except that output is directed to a 
logical unit normally connected to a line printer. 

The list-directed PRINT statement has the form: 

PRINT *, list 

* indicates list-directed formatting, 

list is an I/O list. 

The form of the output values of a list-directed PRINT statement are 
the same as those for the list-directed WRITE statement (Section 
5.7.2). 

* 

Examples 

PRINT *,((QQ(M,N),M=1,100),N=1,100) 

PRINT *, 1 THEAARRAYAZAIS 1 ,Z 


5.8 TRANSFER OF CONTROL ON END-OF-FILE OR ERROR CONDITIONS 

Any type of READ or WRITE statement can contain a specification that 
control is to be transferred to another statement if the I/O statement 
encounters an error condition or the end of the file. These 
specifications have the form: 

END=s 

and 

ERR=s 

s is the' label of an executable statement to which control is 
to be transferred. 

A READ or WRITE statement can contain either or both of the above 
specifications, in either order. Any such specification must follow 
the unit number, record number, and/or format specification. 

If an end-of-file condition is encountered during an I/O operation, 
the READ statement transfers control to the statement named in the 
END=s specification. If no such specification is present, an error 
condition results. An end-of-file condition occurs when no more 
records exist in a sequential file, or when an end-of-file record 
produced by the ENDFILE statement is read. 

If a READ or WRITE statement encounters an error condition during an 
I/O operation, it transfers control to the statement whose label 
appears in the ERR=s specification. If no ERR=s specification is 
present, the I/O error causes program execution to terminate. 

The statement label in the END=s or ERR=s specification must refer to 
an executable statement that exists within the same program unit as 
the I/O statement. 
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Examples of I/O statements containing END=s and ERR=s specifications 
follow: 


READ (8,END=5 50) (MATRIX(K) ,K=1,100) (Pass control to statement 

550 # when end-of-file is 
encountered on logical unit 
8 .) 


WRITE (5,50,ERR=390) 


(Pass control to statement 
390 on error.) 


READ (1'INDEX,ERR=150) ARRAY 


(Pass control to statement 
150 on error.) 


NOTE 

An end-of-file condition can not occur 
during direct access READ or WRITE 
statements. Attemptihg to READ or WRITE 
a record using a record number greater 
than the maximum specified for the unit 
is an error condition. 


The FORTRAN User's Guide describes system subroutines that can control 
processing of error conditions and obtain information from the I/O 
system concerning the type of error condition that has occurred. 


5.9 AUXILIARY INPUT/OUTPUT STATEMENTS 

The statements in this category are used to perform file management 
functions. 


REWIND 

5.9.1 REWIND Statement 

The REWIND statement causes a currently open sequential file to be 
repositioned to the beginning of the file. 

The REWIND statement has the form: 

REWIND u 

u is a logical unit number. 

The unit number in the REWIND statement must refer to a 
directory-structured device (e.g., disk). A file must be open on that 
device. 

Example 

REWIND 3 (Reposition logical unit 3 to beginning of 

currently open file.) 
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5*9.2 BACKSPACE Statement 

The BACKSPACE statement repositions a currently open sequential file 

The BACKSPACE statement has the form: 

BACKSPACE u 

u is a logical unit number. 

h i'ct^ nit "umber must refer to a directory-structured device (e q 
disk). A file must be open on that device! aevice (e.g.. 

Example > 


BACKSPACE 4 


ENDFILE 


(Reposition open file on logical unit 4 to 
beginning of the previous record.) 


5.9.3 ENDFILE Statement 

sequential^unit? ement a " e " d - fUa recotd specified 

The ENDFILE statement has the form: 

ENDFILE u 

u is a logical unit number. 

Example 

ENDFILE 2 (Output an end-file record to logical unit 2.) 

•EFINE FILE 

5.9.4 DEFINE FILE Statement 

The DEFINE FILE statement establishes the size and structure of a file 
upon which direct access I/O is to be performed structure of a 

The DEFINE FILE statement has the form: 

DEFINE FILE u (m,n,U,v) [,u(m,n,U,v)]... 


u 


n 


logical°un it/umber? nt lnteger vaciable that spocifies the 

iumKr/f^nords^rt/rfUe? 961 UatiaMe that SpeCl,ieS ^ 

is an integer constant or integer variable that specifies the 
length, in words, of each record. specines the 

t ^ lat the file is unf °rmatted (binary). The letter 
is the only acceptable entry in this position. 
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v is an integer variable, called the associated variable of the 
file. Ac che conclusion of each direct access I/O operation 
the record number of the next higher numbered record in the 
file is assigned to v. 

The DEFINE FILE statement specifies that a file containing m 
fixed-length records of n words each exists, or is co exist, on 
logical unit u. The records in the file are sequentially numbered 
from 1 through m. 

The DEFINE FILE statement must be executed before the first 
direct access I/O statement that refers to the specified file. 

The DEFINE FILE statement also establishes the integer variable v as 
the associated variable of the file. At the end of each direct access 
I/O operation, the FORTRAN I/O system places in v the record number of 
the record immediately following the one just read or written. Since 
the associated variable always points to the next sequential record in 
the file (unless it is redefined by an assignment, input or FIND 
statement), direct access I/O statements can be used to perform 
sequential processing of the file, by using the associated variable of 
the file as the record number specifier. 

If the file is to be processed by more than one program unit, or in an 
overlay environment, the associated variable should be placed in a 
resident named COMMON block. 


In FORTRAN IV-PLUS the parameter m can be an INTEGER*4 quantity. 


Example 

DEFINE FILE 3 (1000,48,U,NREC) 

This statement specifies that logical unit 3 is to be connected to a 
file of 1000 fixed-length records, each record of which is 48 words 
long. The records are numbered sequentially from 1 through 1000, and 
are unformatted. After each direct access I/O operation on this file, 
the integer variable NREC will contain the record number of the record 
immediately following the one just processed. 

FIND 

5.9.5 FIND Statement 

The FIND statement positions a direct access file on a specified unit 
to a particular record and sets the associated variable of the file to 
that record number. No data transfer takes place. 

The FIND statement has the form: 

FIND (u'r) 

u is a logical unit number, 

r is the record number. 
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The unit number in the statement must refer to a unit that must have 
been previously defined for direct access processing. 

The record number must not be less than 1 nor greater than the number 
of records defined for the file. 


Examples 


FIND (1*1) 
FIND (4'INDX) 


(Position logical unit 1, and its associated 
variable, to the first record of the file.) 

(Position the file and associated variable 
to record identified by contents of INDX.) 


OPEN 


5.9.6 OPEN Statement 

An OPEN statement can be used to connect an existing file to a logical 
unit, or to create a new file and connect it to a logical unit. In 
addition, the statement can contain specifications for file attributes 
that will direct the creation and/or subsequent processing. 

The OPEN statement has the form: 

OPEN (p[,p)...) 

p is a specification in one of the following forms: 

key key is a keyword. 

key=e e is a numeric expression. 

key=s s is an executable statement label. 

key=lit lit is an alphanumeric literal of special 
significance. 

key=v v is an integer variable name. 

key=n n is an array name, variable name, array element 

name, or alphanumeric literal. 


o 


The keywords available for attribute specifications are summarized in 
Table 5-2, and described in detail in the following sections. 

Attribute specifications can appear in any order. In most cases, 
attribute specifications are optional and if not present, default 
specifications will be provided. 

In the discussions that follow, a numeric expression can be any 
integer, real or double precision expression. The value of the 
expression will be converted to integer type prior to use in the OPEN 
statement. 

NOTE 



All OPEN statement keywords and options 
are accepted by all PDP-11 FORTRAN 
processors. Some keywords and options 
may not be supported on a specific 
operating system. Consult the 
appropriate FORTRAN User's Guide for 
information on system-specific options. 
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Table 5-2 

Keywords in the OPEN Statement 


KEYWORD 

FUNCTION 

VALUES 

UNIT 

logical unit number 

e 

NAME 

file specification 

n 

TYPE 

file type 

'OLD' 

'NEW' 

'SCRATCH' 

'UNKNOWN’ 

ACCESS 

access method 

'SEQUENTIAL' 

'DIRECT' 

' APPEND' 

READONLY 

read-only file access 
> 


FORM 

file format 

'FORMATTED' 
•UNFORMATTED' 

RECORDSIZE 

direct access record length 

e 

ERR 

error condition transfer label 

s 

BUFFERCOUNT 

number of buffers 

e 

INITIALSIZE 

file allocation size 

e 

EXTENDSIZE 

file extension increment 

e 

NOSPANBLOCKS 

unspanned records 


SHARED 

shared file access 


DISPOSE 

DISP 

file disposition 

•SAVE' 

•KEEP ' 

'PRINT' 

'DELETE' 

ASSOCIATEVARTABLE 

associated variable name 

V 

CARRIAGECONTROL 

carriage control type 

’FORTRAN' 

'LIST' 

'NONE ' 

MAXREC 

number of direct access records 

e 

BLOCKS IZE 

physical block size 

e 

e is a numeric expression. 

n is a variable name, array name, array element name, or 

alphanumeric literal, 
s is an executable statement label, 

v is an integer variable name. 





u. vu'tt 
jejnpUiM'tn 
'Vt&r'cL . 
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5.9.6.1 UNIT Keyword 
The form 

UNIT = u 

specifies the logical unit to which a file is to be connected; u is a 
numeric expression. The unit specification must appear in the list. 
There must not be a file connected to the logical unit at the time the 
OPEN statement is executed. 


5.9.6.2 NAME Keyword 
The form 

NAME = fin 

specifies the name of the file to *be connected to the unit; fin may 
be an alphanumeric literal, variable name, array name or array element 
name. The name can be any file specification acceptable to the 
operating system. Default file name conventions are described in the 
appropriate FORTRAN User’s Guide. 

If the file name is stored in a variable or array, the name must be 
terminated by an ASCII null character (zero byte). 


5.9.6.3 TYPE Keyword 
The form 

TYPE = typ 

specifies the type of the file to be opened; typ is a literal of the 
form 'OLD', 'NEW', 'SCRATCH', or 'UNKNOWN'. If 'OLD' is specified, 
the file must already exist. If 'NEW* is specified, a new file will 
be created. If 'SCRATCH' is specified a new file is created and 
connected to the specified unit for use by the executable program; 
the file is deleted at the execution of a CLOSE statement referring to 
the same unit or at the termination of the executable program. If 
'UNKNOWN* is specified the processor will first try 'OLD' and if the 
file is not found it will then try 'NEW', thereby creating a new file. 
The default is 'NEW'. 


5.9.6.4 ACCESS Keyword 
The form 

ACCESS = acc 

specifies whether the file is direct access or sequential; acc is a 
literal of the form: 'DIRECT', 'SEQUENTIAL', or 'APPEND'. \ 'DIRECT' 

specifies a direct access file. 'SEQUENTIAL' specifies a sequential 
file. 'APPEND' implies a sequential file and positioning after the 
last record of the file. The default is 'SEQUENTIAL'. 
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5.9.6.5 READONLY Keyword 
The form 

READONLY 

specifies that an existing file is to be read and prohibits writing to 
that file. 


5.9.6.6 FORM Keyword 
The form 

FORM = ft 

specifies whether the file being opened is to be read and written 
using formatted or unformatted READ or WRITE statements; ft is a 
literal of the form 1 FORMATTED 1 on 'UNFORMATTED'. For sequential 
files, 'FORMATTED* is the default. For direct access files, 
'UNFORMATTED' is the default. 


5.9.6.7 RECORDSIZE Keyword 
The form 

RECORDSIZE = rl 

specifies the length of each logical record of a direct access file; 
rl is a numeric expression. If the records are formatted, the length 
is the number of characters; if the records are unformatted, the 
length is the number of storage units (double words). 


5.9.6.8 ERR Keyword 
The form 

ERR = s 

specifies a transfer on error condition; s is an executable statement 
label. The ERR= option as specified in the OPEN statement applies 
only to that OPEN and not to subsequent I/O operations on the "unit. 
If an error condition occurs, no file is opened or created. 
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5.9.6.9 BUFFERCOUNT Keyword 
The form 

BUFFERCOUNT = be 

specifies the number of buffers co be associated with the unit for 
mulci-buffered I/O; be is a numeric expression. If not specified, or 
zero, the system default (normally one) is assumed. 


5.9.6.10 INITIALSIZE Keyword 
The form 

IN ITIALSIZE = is 

specifies the number of blocks in bhe initial allocation of space for 
a new file on a disk unit; is is a numeric expression. This keyword 
can be used only for new files and only for allocation to a disk unit. 
If zero or not present, the system default initial allocation will be 
used. 


5.9.6.11 EXTENDSIZE Keyword 
The form 

EXTENDSIZE = es 

specifies the number of blocks by which to extend a file when 
additional file storage must be allocated; es is a numeric 
expression. If zero or not present, the system default will be used. 


5.9.6.12 NOSPANBLOCKS Keyword 
The form 

NOSPANBLOCKS 

specifies that records are not to cross disk block boundaries. If any 
record exceeds the size of a physical block, an error condition 
results. 


5.9.6.13 SHARED Keyword 
The form 

SHARED 

specifies that the file is to be opened for shared access by more than 
one program executing simultaneously. Consult the appropriate FORTRAN 
User's Guide for additional information on the implications of this 
specifier. 
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5.9.6.14 DISPOSE Keyword 
The forms 

DISPOSE = dis 

DISP = dis 

determine the disposition of the file when the unit is closed; dis is 
a literal of the form 'SAVE', 'KEEP', 'PRINT 1 , or 'DELETE 1 . The 
default value is 'SAVE 1 . 'SAVE 1 causes the file to be retained after 
the unit is closed; 'KEEP' is a synonym for 'SAVE'. 'DELETE' causes 
the file to be deleted when the unit is closed. 'PRINT' causes the 
file to be printed on the system line printer. On some systems, 
'PRINT' implies deletion after printing; consult the appropriate 
FORTRAN User's Guide for further information. A read-only file cannot 
be printed or deleted. A scratch file cannot be printed or saved. 


5.9.6.15 ASSOC TATEVARIABLE Keyword 
The form 

ASSOCIATEVARIABLE = asv 

specifies the integer variable asv, that, at the conclusion of each 
direct access I/O operation, contains the record number of the next 
sequential record in the file. This specifier is ignored for a 
sequential file. 


5.9.6.16 CARRIAGECONTROL Keyword 
The form 

CARRIAGECONTROL = CC 


determines the kind of carriage control processing to be used when 
printing a file; cc is a literal of the form 'FORTRAN', 'LIST', or 
'NONE'. The default for formatted files is 'FORTRAN'; for 


unformatted files, 'NONE', 
interpretation of the first 
spacing between records and 
control. 


'FORTRAN' specifies normal FORTRAN 
character; 'LIST' specifies single 
'NONE' specifies no implied carriage 


5.9.6.17 MAXREC Keyword 
The form 

MAXREC = mr 


specifies the maximum number of records to be permitted in a 
access file; mr is a numeric expression. The default is no 
number of records. This specifier is ignored for a sequential 


direc t 
maximum 
f ile. 
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5.9.6.18 BLOCKSI2E Keyword 
The form 

BLOCKSIZE = bks 

0 

specifies the physical block size to be used for the unit; bks is a 
numeric expression. This specifier only has effect for magnetic tape 
files; it has no effect for disk files. The default is the system 
default for the device. 


5.9.6.19 OPEN Statement Examples 
Examples 

OPEN (UNIT=3,TYPE= 1 SCRATCH',ACCESS= 1 DIRECT' , 

INITIALS IZE = 50,RECORDSTZE=64) 

Create a 50 block direct access file for temporary storage. 
The file is deleted at program termination. 

OPEN (UNIT=I,NAME= 1 MTO:DATA.DAT ',BLOCKSIZE=8192, 

TYPE ='NEW' , ERR=14) 

Create a file on magnetic tape with a large blocksize for 
efficient processing. 


OPEN (UNIT=I,NAME='MTO:DATA.DAT 1 ,READONLY, 

TYPE='OLD 1 ,B LOC KSTZE-8192) 

Open the file created in the previous example for input. 

LOSE 


5.9.7 CLOSE Statement 


The CLOSE statement has the form: 

CLOSE (UNIT=u J\ {disp° SE } =P ] [' ERR=s ] ) 

u is a logical unit number. 

p is a literal that determines the disposition of the file. 

Its values are 1 SAVE', 1 KEEP ' , 1 DELETE ', and 'PRINT'. 

'SAVE' and 'KEEP 1 are synonyms; if either is specified, the 
file is retained after the CLOSE. If 'DELETE' is specified 
the file ceases to exist after the CLOSE. 'PRINT' causes 
the file to be printed by the system line printer. For 
scratch files the default is 'DELETE'; for all other files 
the default is 'SAVE'. 

s is an executable statement label. 

The CLOSE statement disconnects a file from a unit. The disposition 
specified in a CLOSE statement supersedes the disposition specified in 
the OPEN statement, except that a file opened as a scratch file can 
not be saved or printed nor can a file opened for read-only access be 
printed or deleted. 
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Examples 

CLOSE(UNIT=1, DISPOSE='PRINT 1 ) 

Close the file on unit 1 and submit the file for printing. 
CLOSE(UNIT=J,DISPOSE=’DELETE',ERR=99) 

Close the file on unit J and delete it. 


ENCODE 

DECODE 

5.10 ENCODE AND DECODE STATEMENTS 

These two statements perform data transfers according to format 
specifications, translating data from internal format to character 
format, or vice versa. Unlike conventional formatted I/O statements, 
however, these data transfers take place entirely between variables or 
arrays in the FORTRAN program. 

The ENCODE and DECODE statements are written as follows: 

ENCODE(c,f,b[,ERR=s])[list] 

DECODE(c,f,b[,ERR=s] ) [list] 

c is an integer expression representing the number of 

characters (bytes) that are to be converted or that are to 
result from the conversion. (This is analogous to the 
length of an external record.) 

f is a format specifier. If the format specifies more than 
one record, an error condition results. 

b is the name of an array, array element or variable. In the 

ENCODE ^ statement, this entity receives the characters. In 
the DECODE statement, it contains the characters that are to 
be translated to internal format. b must not be the name of 
a VIRTUAL array or a VIRTUAL array element. 

s is an executable statement label. 

list is an I/O list. In the ENCODE statement, the I/O list 
contains the data that is to be converted to characters. In 
the DECODE statement, the list receives the data that has 
been translated from characters to internal format. 

The ENCODE statement causes the I/O list elements to be translated to 
character format according to the format specification and stored in 
the entity b, in an analogous fashion to a WRITE statement. 

The DECODE statement causes character data in the entity b to be 
interpreted and converted according to the format specification and 
assigned to the I/O list elements; this processing is analogous to a 
READ statement. 

If the encity b is an array, the elements of that array are processed 
in the order of subscript progression. 


At 
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The number 
statement 
statement. 
characters 
the number 


of characters that can be processed by the ENCODE or DECODE 
is dependent on the data type of the entity b in that 
An INTEGER*2 array, for example, can contain two 
per element, so the maximum number of characters is twice 
of elements in that array. 


The interaction between format control and the I/O list is the same as 
for a formatted I/O statement. 


Example 


DIMENSION A(3) ,K (3) 

DATA A /'1234',*5678','9012'/ 

DECODE (12,100,A) K 
100 FORMAT (314) 

Execution of the DECODE statement causes the 12 characters in array A 
to be converted to Integer format (specified by statement 100) and 
stored in array K, as follows: 

K (1) = 1234 
K (2) = 5678 
K ( 3) = 9012 
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CHAPTER 6 


FORMAT STATEMENTS 


6.1 OVERVIEW 

FORMAT statements are nonexecutable statements used in conjunction 
with formatted I/O statements and with ENCODE and DECODE statements. 

The FORMAT statement describes the format in which data fields are 
transmitted, and the data conversion and editing to be performed to 
achieve that format. 

The FORMAT statement has the form: FORMAT 

FORMAT (q^f2 s 2 ^n^n^ 

where each f is a field descriptor, or a group of field descriptors 
enclosed in parentheses, each s is a field separator and each q is 
zero or more slash (/) record terminators. The entire list of field 
descriptors and field separators including the parentheses is called 
the format specification. The list must be enclosed in parentheses. 

A field descriptor in a format specification has the form: 

[r]Cw[.d] 

r represents a repeat count which specifies that the field 
descriptor is to be applied to r successive fields. If the 
repeat count is omitted, it is assumed to be 1. See Section 
6.2.17 for further discussion of field repetition. 

C is a format code. 

w specifies the field width. 

d specifies the number of characters to the right of the 
decimal point. 

The terms r, w, and d must all be unsigned integer constants less than 
or equal to 255. 

The field separators are comma and slash. A slash has the additional 
function of being a record terminator. The functions of the field 
separators are described in detail in Section 6.4. 

The field descriptors used in format specifications are as follows: 
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1. Integer: 

2. Logical: 

3. Real, Double 
Precision, Complex: 

4. Literal and editing: 

(In the alphanumeric and editing 
number of characters or character 


Iw, Ow 
Lw 

Fw.d, Ew.d, Dw.d, Gw.d 

f nH, • • • 1 / nX , Tn , Q , $ f : 

field descriptors, n specifies a 
positions.) 


Any of the F, E, D, or G field descriptors can be preceded by a scale 
factor of the form: 


nP 


where n is an optionally signed integer constant in the range -127 to 
+127 that specifies the number of positions the decimal point is to be 

scaled to the left or right. The scale factor is described in Section 
6.2.15. 

During data transmission, the format specification is scanned from 
left to right. Data conversion is performed by correlating the values 
in the I/O list with the corresponding field descriptors. In the case 
of H field descriptors and alphanumeric literals, data transmission 
takes place entirely between the field descriptor and the external 
record. The interaction between the format specification and the I/O 
list is described in detail in Section 6.7. 


6.2 FIELD DESCRIPTORS 

The individual field descriptors that can appear in a format 
specification are described in detail in the following sections. The 
field descriptors ignore leading spaces in the external field, but 
treat embedded and trailing spaces as zeros. 


6.2.1 I Field Descriptor 

The I field descriptor governs the translation of integer data. It 
has the form: 

Iw 

The I field descriptor causes an input statement to read w characters 
from the external record and to assign them as an integer value to the 
corresponding integer element of the I/O list. The external data must 
be an integer; it must not contain a decimal point or exponent field. 
The I field descriptor interprets an all-blank field as a zero value. 
If the value of the external field exceeds the range of the 
corresponding integer list element, an error occurs. If the first 
non-blank character of the external field is a minus symbol, the I 
field descriptor causes the field to be stored as a negative value; a 
field preceded by a plus symbol, or an unsigned field, is treated as a 
positive value. For example: 
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Format 

14 

13 

19 

19 


External Field 

2788 

-26 

AAAAAA 312 

3.12 


Internal Representation 

2788 

-26 

312 

not permitted; error 


The I field descriptor causes an output statement to transmit the 
value of the corresponding integer I/O list element to an external 
field w characters in length, right justified, replacing any leading 
zeros with spaces. If the value of the list element is negative, the 
field will have a minus symbol as its leftmost non-blank character. 
Space must therefore be included in w for a minus symbol if any are 
expected. Plus symbols, on the other hand, are suppressed and need 
not be accounted for in w. If w is too small to contain the output 
value, the entire external field is filled with asterisks. For 
example: 


Format 

Internal Value 

External Representation 

13 

284 

284 

14 

-284 

-284 

15 

174 

AA174 

12 

3244 

* ★ 

13 

-473 

* * ★ 

17 

29.812 

not permitted; error 

2 0 Field 

Descriptor 



It 


The 0 field descriptor governs the transmission of octal values, 
has the form: 

Ow 


The O field descriptor causes an input statement to read w characters 
from the external record and to assign them as an octal value to the 
corresponding I/O list element. The list element must be of 


or logical 

type 

. The external field must 

contain only the numerals 0 

through 7; 

it must not contain a sign. 

a decimal point, or an 

exponent field. 

For example: 

Internal 

Format 


External Field 

Octal Representation 

05 


32767 

32767 

04 


16234 

1623 

06 


13&AAA 

130000 

03 


97A 

not permitted; error 


The 0 field descriptor causes an output statement to transmit the 
value of the corresponding I/O list element, right justified, to a 
field w characters long. If the data does not fill the field, leading 
spaces are inserted; if the data exceeds the field width, the entire 
field is filled with asterisks. No signs are output; a negative 
value is transmitted in its octal (two's complement) form. The I/O 
list element must be of integer or logical type. For example: 
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Format 

Internal (Decimal) Value 

External Represe 

06 

32767 

A77777 

06 

-32767 

100001 

02 

14261 

0 * * 

04 

27 

AA33 

05 

13.52 

not permitted; i 


6.2.3 F Field Descriptor 

The F field descriptor specifies the data conversion and editing of 
real or double precision values/ or the real or imaginary parts of 
complex values. It has the form: 

Fw.d 

On input, the F field descriptor causes w characters to be read from 
the external record and to be ' assigned as a real value to the 
corresponding I/O list element. If the first non-blank character of 
the external field is a minus sign, the field is treated as a negative 
yalue? a field that is preceded by a plus sign, or an unsigned field/ 
is considered to be positive. An all-blank field is considered to 
have a value of zero. In all appearances of the F field descriptor/ w 
must be greater than or equal to d + 1. 

If the field contains neither a decimal point nor an exponent/ it is 
treated as a real number of w digits, in which the rightmost d digits 
are to the right of the decimal point. If the field contains an 
explicit decimal point, the location of that decimal point overrides 
the location specified by the field descriptor. If the field contains 
an exponent (in the same form as described in Section 2.4.2 for real 
constants or Section 2.4.3 for double precision constants), that 


exponent is 

used 

in establishing the magnitude 

of the value before it 

is 

assigned 

to the 

list element. For example: 



Format 


External Field Internal Representation 


F8.5 


123456789 

123.45678 


F8.5 


-1234.567 

-1234.56 


F8.5 

. 

24.77E+2 

2477.0 


F5.2 


1234567.89 

123.45 

On 

output, 

the 

F field descriptor causes 

the value of the 


corresponding I/O list element to be rounded to d decimal positions 
and transmitted to an external field w characters in length, right 
justified. If the converted data consists of fewer than w characters, 
leading spaces are inserted; if the data exceeds w characters, the 
entire field is filled with asterisks. 

The total field width specified must be large enough to accommodate a 
minus sign, if any are expected (plus signs are suppressed), at least 
one digit to the left of the decimal point, the decimal point itself, 
and d digits to the right of the decimal. For this reason, w should 
always be greater than or equal to (d+3). Examples follow: 
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Format 


Internal Value 


External Representation 


F8.5 
F9.3 
F2.3 
F10.4 
F5.2 
F5.2 


2.3547188 

8789.7361 

51.44 

-23.24352 

325.013 

-.2 


A2.35472 
A8789.736 

** 

AA-23.2435 

★ ★ ★ ★ ★ 

- 0.20 


6.2.4 E Field Descriptor 

The E field descriptor specifies the transmission of real or double 
precision values in exponential format. It has the form: 

Ew .d 


The E field descriptor causes an input statement to input w characters 
from the external record. It interprets and assigns that data in 
exactly the same way as the F field descriptor. For example: 


Format 


External Field 


Internal Representation 


E9.3 
E12.4 
E15.3 
E12.5 


734.432E3 
AA1022.43E-6 
52.3759663AAAAA 
210.5271D+10 


734432.0 
1022.43E-6 
52.3759663 
210.5271E10 


Note that in the last example the E field descriptor disregards the 
double precision connotation of a D exponent field indicator and 
treats it as though it were an E indicator. 

The E field descriptor causes an output statement to transmit the 
value of the corresponding list element to an external field w 
characters in width, right justified. If the number of characters in 
the converted data is less than w, leading spaces are inserted; if 
the number of characters exceeds w, the entire field is filled with 
asterisks. The corresponding I/O list element must be of real, double 
precision, or complex type. 

Data output under control of the E field descriptor is transmitted in 
a standard form, consisting of a minus sign if the value is negative 
(plus signs are suppressed), a zero, a decimal point, d digits to the 
right of the decimal, and a 4-character exponent of the form: 

E+nn 


or 

E-nn 

where nn is a 2-digit integer constant. The d digits to the right of 
the decimal point represent the entire value, scaled to a decimal 
fraction. 

Because w must be large enough to include a minus sign (if any are 
expected), a zero, a decimal point, and an exponent, in addition to d 
digits, w should always be equal to or greater than (d+7). Some 
examples are: 
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Format 


Internal Value 


External Representation 


E9.2 
E12.5 
E12.3 
E10.3 
E 5.3 


475867.222 

475867.222 

0.00069 

-0.5555 

56.12 


AO.48E+06 
A0.47587E+06 
AAA0.690E-03 
-0.556E+00 
***** 


6.2.5 D Field Descriptor 

The D field descriptor specifies the transmission of real or double 
precision values. It has the form: 

Dw.d 


On input, the D field descriptor functions exactly as an equivalent E 
field descriptor, except that the input data is converted and assigned 
as a double precision entity, as in* the following examples: 


Format 


External Field 


Internal Representation 


D10.2 
D10.2 
D15.3 


12345AAAAA 
AA123.45AA 
367.4981763D+04 


12345000.0D0 
123.45D0 

3.674981763D+06 


On output the effect of the D field descriptor is identical to that of 
the E field descriptor, except that the D exponent field indicator is 
used in place of the E indicator. For example: 


Format 


Internal Value 


External Representation 


D14.3 
D23.12 
D9.6 


0.0363 

5413.87625793 

1.2 


AAAAA0.363D-01 

AAAAA0.541387625793D+04 

********* 


6.2.6 G Field Descriptor 

The G field descriptor transmits real, double precision, or complex 
data in a form that is in effect a combination of the F and E field 
descriptors. It has the form: 

Gw.d 


On input, the G field descriptor functions identically to the F field 
descriptor (see Section 6.2.3). 

On output, the G field descriptor causes the value of the 
corresponding I/O list element to be transmitted to an external field 
w characters in length, right justified. The form in which the value 
is output is a function of the magnitude of the value, as described in 
Table 6-1. 
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Table 6-1 

Effect of Data Magnitude on G Format Conversions 


Data Magnitude 

Effective Conversion 

m < 0.1 

Ew.d 

0.1 < m < 1.0 

F(w-4).d, 'AAAA' 

1.0 < m < 10.0 

• 

• 

F(w-4).(d—1), 'AAAA' 

• 

• 

• 

10d-2 < m < 10d-l 

• 

F(w-4).1, 'AAAA 1 

10d-l < ra < lOd 

F(w-4).0, 1 AAAA 1 

m > lOd 

Ew.d 


The 'AAAA' field descriptor, which is (in effect) inserted by the G 
field descriptor for values within its range, specifies that four 
spaces are to follow the numeric data representation. 

The field width, w, must include space for a minus sign, if any are 
expected (plus signs are suppressed), at least one digit to the left 
of the decimal point, the decimal point itself, d digits to the right 
of the decimal, and (for values that are outside the effective range 
of the G field descriptor) a 4-character exponent. Therefore, w 
should always be equal to or greater than (d+7). Examples of G output 
conversions are: 


Format 

Internal Value 

External Representation 

G13.6 

0.01234567 

A0.123457E-01 

G13.6 

-0.12345678 

-0.123457AAAA 

G13.6 

1.23456789 

AA1.23457AAAA 

G13.6 

12.34567890 

AA12.3457AAAA 

G13.6 

123.45678901 

AA123.457AAAA 

G13.6 

-1234.56789012 

A-1234.57AAAA 

G13.6 

12345.67890123 

AA12345.7AAAA 

G13.6 

123456.78901234 

AA123457.AAAA 

G13.6 

-1234567.89012345 

-0.123457E+07 

For comparison. 

consider the following 

example of the same val 

output under the 

control of an equivalent F field descriptor. 

Format 

Internal Values 

External Representation 

F13.6 

0.01234567 

AAAAA0.012346 

F13.6 

-0.12345678 

AAAA-0.123457 

F13.6 

1.23456789 

AAAAA1.234568 

F13.6 

12.34567890 

AAAA12.345679 

F13.6 

123.45678901 

AAA123.456789 

F13.6 

-1234.56789012 

A-1234.567890 

F13.6 

12345.67890123 

A12345.678901 

F13.6 

123456.78901234 

123456.789012 

F13.6 

-1234567.89012345 

************* 
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6.2.7 L Field Descriptor 

The L field descriptor specifies the transmission of logical data. It 
has the form: 

Lw 

The L field descriptor causes an input statement to read w characters 
from the external record. If the first non-blank character of that 

field is the letter T, the value .TRUE. is assigned to the 

corresponding I/O list element. (The corresponding I/O list element 
must be of logical type.) If the first non-blank character of the 

field is the letter F, or if the entire field is blank, the value 

.FALSE. is assigned. Any other value in the external field causes an 
error condition. 

The L field descriptor causes an output statement to transmit either 
the letter T, if the value of the corresponding list element is 
.TRUE., or the letter F, if the value is .FALSE., to an external field 
w characters wide. The letter T dr F is in the rightmost position of 
the field, preceded by w-1 spaces. For example: 

Format Internal Value External Representation 

L5 .TRUE. AAAAT 

LI .FALSE. F 


6.2.8 A Field Descriptor 

The A field descriptor specifies the transmission of alphanumeric 
data. It has the form: 

Aw 


On input, the A field descriptor causes w characters to be read from 
the external record and stored in ASCII format in the corresponding 
I/O list element. (The corresponding I/O list element may be of any 
data type.) The maximum number of characters that can be stored in a 
variable or array element depends on the data type of that element, as 
follows: 


I/O List 
Element 


Maximum Number 
of Characters 


Logical*l 
Logical*2 
Logical*4 
Integer*2 
Integer*4 
Real 

Double Precision 
Complex 


1 

2 (FORTRAN IV-PLUS only) 
4 
2 
4 
4 
8 
8 


If w is greater than the maximum number of characters that can be 
stored in the corresponding I/O list element, only the rightmost one, 
two, four, or eight characters (depending on the data type of the 
variable or array element) are assigned to that entity? the leftmost 
excess characters are lost. If w is less than the number of 
characters that can be stored, w characters are assigned to the list 
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element, left justified, and trailing spaces are added to fill the 
variable or array element. For example: 


Format 

External Field 

Internal 

Representation 

A6 

PAGEA# 

# 

(Logical*l) 

A6 

PAGEA# 

A# 

(Integer*2) 

A6 

PAGEA# 

GEA# 

(Real) 

A6 

PAGEA# 

PAGEA#AA 

(Double Precision) 


On output, the A field descriptor causes the contents of the 
corresponding I/O list element to be transmitted to an external field 
w characters wide. If the list element contains fewer than w 
characters, the data appears in the field right-justified with leading 
spaces. If the list element contains more than w characters, only the 
leftmost w characters are transmitted. For example: 


Format 

Internal Value 

External Representation 

A5 

> 

OHMS 

AOHMS 

A5 

VOLTSAAAA 

VOLTS 

A5 

AMPERESA 

AMPER 

i H Field 

Descriptor 



The H field descriptor has the form of a Hollerith constant: 

nHc n c c ... c 
l z j n 

n specifies the number of characters that are to be 

transmitted 

c is an ASCII character. 

When the H field descriptor appears in a format specification, data 
transmission takes place between the external record and the field 
descriptor itself. 

The H field descriptor causes an input statement to read n characters 
from the external record and to place them in the field descriptor, 
with the first character appearing immediately after the letter H. 
Any characters that had been in the field descriptor prior to input 
are replaced by the input characters. 

The H field descriptor causes an output statement to transmit the n 
characters in the field descriptor following the letter H to the 
external record. An example of the use of H field descriptors for 
input and output follows: 

TYPE 100 

100 FORMAT (41HAENTERAPROGRAMATITLE,AUPATOA20 ACHARACTERS) 

ACCEPT 200 

200 FORMAT (2OHAATITLEAGOESAHEREAAA) 

The TYPE statement transmits the characters from the H field 
descriptor in statement 100 to the user's terminal. The ACCEPT 
statement accepts the response from the keyboard, placing the input 
data in the H field descriptor in statement 200. The new characters 
replace the words TITLE GOES HERE; if the user enters fewer than 20 
characters, the remainder of the H field descriptor is filled with 
spaces to the right. 
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^* 2 * 9 * 1 ftlphanumeric Literals - An alphanumeric literal can be used 
in place of an H field descriptor. Both types of format specifiers 
function identically. 

The apostrophe character is written within an alphanumeric literal as 
two apostrophes. For example: 

50 FORMAT ('TODAY''SADATEAlS:A',12,,12,'/'#12) 

A pair of apostrophes used in this manner is considered to be a sinqle 
character. 


6.2.10 X Field Descriptor 

The X field descriptor has the form: 

> 

nX 

The X field descriptor causes an input statement to skip over the next 
n characters in the input record. 

The X field descriptor causes an output statement to transmit n spaces 
to the external record. For example: 

WRITE (5,90) NPAGE 

90 FORMAT (13H1PAGEANUMBERA,12,16X,23HGRAPHICAANALYSIS,ACONT.) 

The WRITE statement prints a record similar to: 

PAGE NUMBER nn GRAPHIC ANALYSIS, CONT. 

where "nn" is the current value of the variable NPAGE. The numeral 1 
in the first H field descriptor is not printed, but is used to advance 
the printer paper to the top of a new page. Printer carriage control 
is explained in Section 6.3. 


6.2.11 T Field Descriptor 

The T field descriptor is a tabulation specifier. It has the form: 

Tn 

where n indicates the character postion of the external record. The 
value of n must be greater than or equal to one, but not greater than 
the number of characters allowed in the external record. 

On input, the T field descriptor causes the external record to be 
positioned to its nth character position. For example, if a READ 
statement inputs a record containing: 

ABC AAAXYZ 

under control of the FORMAT statement: 

10 FORMAT (T7,A3,T1,A3) 

the READ statement would input the characters XYZ first, then the 
characters ABC. 
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On output to devices other than the line printer or terminal/ the T 
field descriptor states that subsequent data transfer is to begin at 
the nth character position of the external record. For output to a 
printing device/ data transfer begins at position (n-1). The first 
position of a printed record is reserved for a carriage control 
character (see Section 6.3) which is never printed. For example the 
statements: 

PRINT 25 

25 FORMAT (T51/'COLUMNA2' f T21 f 'COLUMNA1') 
would cause the following line to be printed: 

Position 20 

1 

COLUMN 1 

6.2.12 Q Field Descriptor 

The Q field descriptor/ which is simply the letter Q f is used to 
obtain the number of characters in the input record remaining to be 
transmitted during a READ operation. The I/O list element 
corresponding to the Q field descriptor must be of Integer type. 

As an example/ the statements: 

READ (4/1000) XRAY/KK/NCHRS/(ICHR(I)/I=1/NCHRS) 

1000 FORMAT (E15.7/14 r Q, 80A1) 

reads two fields into the variables XRAY and KK. The number of 
characters remaining in the record is stored in NCHRS and exactly that 
many characters are read into the array ICHR. By placing the Q 
descriptor first in the format specification/ the actual length of the 
input record can be determined. 

When the Q field descriptor is used with an output statement it has no 
effect except that the corresponding list item is skipped. 


6.2.13 $ Descriptor 

The character $ (dollar sign) appearing in a format specification 
modifies the carriage control specified by the first character of the 
record. The $ descriptor is intended primarily for interactive I/O 
and causes the terminal print position to be left at the end of the 
text written (rather than returned to the left margin) so that a typed 
response will appear on the same line following the output. 


Position 50 

COLUMN 2 


6.2.14 : Descriptor 

The character : (colon) appearing in a format specification causes 
termination of format control if there are no more items in the I/O 
list. It has no effect if there are I/O list items remaining. For 
example the statements: 
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Hr 't 


PRINT 1,3 
PRINT 2,4 

1 FORMAT(’AI= ' ,12, 'AJ=',I2) 

2 FORMAT('AK=',12:,'AL=‘,12) 

print the following 2 lines: 

1=A3AJ= 

K=A4 

Section 6.7 describes format control in detail. 


6.2.15 Complex Data Editing 

Since a complex value is an ordered pair of real values, input or 
output of a complex entity is governed by two real field descriptors, 
using any combination of the forms Fw.d, Ew.d, Dw.d or Gw.d. 


On input, two successive fields are read and assigned to a complex I/O 
list element as its real and imaginary parts, respectively. For 
example 


Format 


External Fields 


Internal Representation 


F8.5,F8.5 
E9.1,F9.3 


1234567812345.67 123.45678, 12345.67 

734.432E8123456789 734.432E8, 12345.678 


On output, the constituent parts of a complex value are transmitted 
under the control of repeated or successive field descriptors. 
Nothing intervenes between those parts unless explicitly stated by the 
format specification. For example: 


Format 


Internal Values 


External Representation 


2F8.5 

E9.2,'A,A',E5.3 


2.3547188, 3.456732 
47587.222, 56.123 


A2.35472A3.45673 
AO.48E+06A,A***** 


6.2.16 Scale Factor 

The location of the decimal point in real and double precision values, 
and in the constituent parts of complex values, can be altered during 
input or output through the use of a scale factor. The scale factor 
has the form: 

nP 

n is a signed or unsigned integer constant in the range -127 to 
+127 specifying the number of positions the decimal point is 
to be moved to the right or left. 

A scale factor may appear anywhere in a format specification, but must 
precede the field descriptors with which it is to be associated. It 
has the forms: 

nPFw.d nPEw.d nPDw.d nPGw.d 
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Data input under control of one of the above field descriptors is 
multiplied by 10~ n before it is assigned to the corresponding I/O list 
element. For example, a 2P scale factor multiplies an input value by 
.01, moving the decimal point two places to the left; a -2P scale 
factor multiplies an input value by 100, moving the decimal point two 
places to the right. If the external field contains an explicit 
exponent, however, the scale factor has no effect. For example: 


Format 


External Field 


Internal Representation 


3PE10.5 
3PE10.5 
-3PE10.5 


AAA37.614A 
AA37.614E2 
AAAA37.614 


.037614 

3761.4 

37614.0 


The effect of the scale factor on output depends on the type of field 
descriptor with which it is associated. For the F field descriptor, 
the value of the I/O list element is multiplied by 10 before being 
transmitted to the external record. Thus, a positive scale factor 
moves the decimal point to the rigfyt; a negative scale factor moves 
the decimal point to the left. 

Values output under control of an E or D field descriptor with scale 
factor are adjusted by multiplying the basic real constant portion of 
each value by 10 n and subtracting n from the exponent. Thus a 
positive scale factor moves the decimal point to the right and 
decreases the exponent; a negative scale factor moves the decimal 
point to the left and increases the exponent. 

The effect of the scale factor is suspended while the magnitude of the 
data to be output is within the effective range of the G field 
descriptor, since it supplies its own scaling function. The G field 
descriptor functions as an E field descriptor when the magnitude of 
the data value is outside its range; the effect of the scale factor 
is therefore the same as described for that field descriptor. 


Note that on input, and on output under control of an F field 
descriptor, a scale factor actually alters the magnitude of the data; 
on output, a scale factor attached to an E, D, or G field descriptor 
merely alters the form in which the data is transmitted. Note also 
that on input a positive scale factor moves the decimal point to the 
left and a negative scale factor moves the decimal point to the right, 
while on output the effect is just the reverse. 


If no scale factor is attached to a field descriptor, a scale factor 
of zero is assumed. Once a scale factor has been specified, however, 
it applies to all subsequent real and double precision field 
descriptors in the same format specification, unless another scale 
factor appears; that scale factor then assumes control. Note that 
format reversion (Section 6.7) has no effect on the scale factor. A 
scale factor of zero can only be reinstated by an explicit OP 
specification. 


Some examples of scale factor effect on output are: 


Format 


Internal Value 


External Representation 


1PE12.3 
1PE12.2 
-1PE12.2 


-270.139 

-270.139 

-270.139 


AA-2.701E+02 
AAA-2.70E+02 
AAA-0.03E+04 
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^•2.17 Grouping and Group Repeat Specifications 

Any field descriptor (except H, T, P, or X) can be applied to a number 
of successive data fields by preceding that field descriptor with an 
unsigned integer constant, called a repeat count , that specifies the 
number of repetitions. For example, the statements: 

20 FORMAT (E12.4,E12.4,E12.4,15,I 5,15,15) 

and 

20 FORMAT (3E12.4,4I5) 

have the same effect. 

Similarly, a group of field descriptors can be repeatedly applied to 
data fields by enclosing those field descriptors in parentheses, with 
an unsigned integer constant, called a group repeat count, preceding 
the left parenthesis. For example: 

> 

50 FORMAT (2I8,3(F8.3,E15.7)) 
is equivalent to: 

50 FORMAT (I8,I8, ^F8.3^E15.7 , F8.3^E15.7 / F8.3,E15.7^ 

12 3 

An H or X field descriptor, which could not otherwise be repeated, can 
be enclosed in parentheses and treated as a group repeat 
specification, thus allowing it to be repeated a desired number of 
times. 


If a group repeat count is omitted, it is assumed to be 1. 


6.2.18 Variable Format Expressions 

An expression can.be used in a FORMAT statement wherever an integer 
can be used (except as a Hollerith count) by enclosing it in angle 
brackets. For example: 

FORMAT (I<J+1>) 

causes an I conversion with a field width one greater than the value 
of J at the time the format is scanned. The expression is 
re-evaluated each time it is encountered in the normal format scan. 
If the expression is not of type integer it is converted to integer 
prior to use. Any valid FORTRAN expression can be used, including 
function calls and references to dummy arguments. 

A complete example is shown in Figure 6-1. : 

The value of a variable format expression must obey the restrictions 
on magnitude applying to its use in the format or an error condition 
results. '< .‘ v. 
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DIMENSION MSI 

DATA A/1,,2 * # 34*, 5 * / 

c » f S>m 

WRITE (5,100^ J . > 

100 FORMAT(t <MAXQ(1,5) > ) 

10 CONTINUE rt 


\gMi mtn-mu 

101 - FORMAT {«. 
»&■ ^coNTTNsite 


lureducjes che foil 


'i 

m-'i 


4*J0§O 

&mh$- 




' W".. 
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6.2.19 Default Field Descriptors 

If the field descriptors I , 0, L, F, E, D, G, or A are written without 
any field width value (e.g., F ), a default value for w and d is 
supplied based upon the data type of the I/O list element. 

The values for w and d are shown in Table 6-2. 


Table 6-2 

Default Field Descriptor Values 


Field Descriptor 

List Element 

w 

d 

I or 0 

INTEGER* 2 

7 


I or 0 

INTEGER*4 

12 


L 

LOGICAL 

2 


F,E,G or D 

REAL, COMPLEX 

15 

7 

F,E,G or D 

DOUBLE PRECISION 

25 

16 

A 

LOGICAL*l 

1 


A 

LOGICAL*2,TNTEGER*2 

2 


A 

LOGICAL*4,INTEGER*4 

4 


A 

REAL,COMPLEX 

4 


A 

DOUBLE PRECISION 

8 



Note that for A format, the actual length of the corresponding I/O 
list element is used. 
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,r~>. 

6.3 CARRIAGE CONTROL 

The first character of every record transmitted to a printing device 
is never printed; instead, it is interpreted as a carriage control 
character. The FORTRAN I/O system recognizes certain characters for 
this purpose; the effects of these characters are shown in Table 6-3. 


Table 6-3 

Carriage Control Characters 




Any character other than those described in Table 6-3 is treated as 
though it is a space, and is deleted from the print line. 


6.4 FORMAT SPECIFICATION SEPARATORS 

Field descriptors in a format specification are generally separated 
from one another by commas. The slash (/) record terminator can also 
be used to separate field descriptors. A slash causes the input or 
output of the current record to be terminated and a new record to be 
initiated. For example: 

WRITE (5,40) K,L,M,N,0,P 
40 FORMAT (306/16,2F8.4) 

is equivalent to: 

WRITE (5,40) K,L,M 
40 FORMAT (306) 

WRITE (5,50) N,0,P 
50 FORMAT (I6,2F8.4) 

It is possible to bypass input records or to output blank records by 
the use of multiple slashes. If n consecutive slashes appear between 


Character 

Effect 

A space 

Advances one line 

0 zero 

Advances two lines 

1 one 

Advances to top of 
next page 

+ plus 

Does not advance 
(allows overprinting) 

$ dollar sign 

Advances one line before printing 
and suppresses carriage 
return at the end of the 
record 
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two field descriptors, they cause (n-1) records to be skipped on input 
or (n-1) blank records to be output. (The first slash terminates the 
current record; the second slash terminates the first skipped or 
blank record, and so on.) If n slashes appear at the beginning or end 
of a format specification, however, they result in n skipped or blank 
records, because the initial and terminal'parentheses of the format 
specification are themselves a record initiator and record terminator, 
respectively. An example of the use of multiple record terminators is 
as follows: 

WRITE (5,99) 

99 FORMAT ( '1'T51'HEADINGALINE 1 //T51 1 SUBHEADINGALINE'//) 

The above statements output the following: 

Column 50, top of page 

HEADING LINE 
(blank line) 

SUBHEADING LINE 
(blank line) 

(blank line) 


6.5 EXTERNAL FIELD SEPARATORS 

A field descriptor such as Fw.d specifies that an input statement is 
to read w characters from the external record. If the data field in 
question contains fewer than w characters, the input statement would 
read some characters from the following field unless the short field 
were padded with leading zeros or spaces. To avoid the necessity of 
doing so, an input field containing fewer than w characters may be 
terminated by a comma, which overrides the field descriptor's field 
width specification. This practice, called short field termination , 
is particularly useful when entering data from a terminal keyboard. 
It may be used in conjunction with I, 0, F, E, D, G, and L field 
descriptors. For example: 

READ (6,100) I,J,A,B 
100 FORMAT (216,2F10.2) 

If the external record input by the above statements contains: 

1,-2,1.0,35 

Then the following assignments take place: 

1 = 1 
J = -2 
A = 1.0 
B = 0.35 

Note that the physical end of the record also serves as a field 
terminator. Note also that the d part of a w.d specification is not 
affected as illustrated by the assignment to B. 








FORMAT STATEMENTS 


Only fields of fewer than w characters can be terminated by a comma. 
If a field of w characters or greater is followed by a comma, the 
comma will be considered to be part of the following field. 

Two successive commas, or a comma following a field of exactly w 
characters, constitutes a null (zero-length) field. Depending on the 
field descriptor in question, the resulting value assigned is 0, 0.0, 
0D0, or .FALSE.. 

A comma cannot be used to terminate a field that is to be read under 
control of an A, H, or alphanumeric literal field descriptor. If the 
physical end of the record is encountered before w characters have 
been read, however, short field termination is accomplished and the 
characters that were input are assigned successfully. Trailing spaces 
are appended to fill the corresponding I/O list element or the field 
descriptor. 


6.6 OBJECT TIME FORMAT 

Format specifications may be stored in arrays. Such a format 
specification (termed an object time format) can be constructed or 
altered during program execution. The form of a format specification 
in an array is identical to a FORMAT statement, except that the word 
FORMAT and the statement label are not present. The initial and 
terminal parentheses must appear, however. Object-time formats may 
not be stored in VIRTUAL arrays. An example of object-time format is: 

REAL TABL E < 5 r 5) 

DOUBLE PRECISION FORRAY<20)*RPARfFBIGfFMED*FSML 
DATA FORRAY<1>fRPAR/ 7 <'r' ) '/ 

DATA FBIG rFMED *FSML/'F8♦2 * 7 r'F9♦4*'*'F9♦ 6?'/ 

DO 20 J=l*5 

DO 18 1=1*5 

FORRAY(1 + 1) « FMED 

IF <TABLE(I*J) »GE* 100) FORRAY < I-f 1) « FBIG 
IF (TABLE(IfJ) .LE. 0*1) FORRAY < I-tl) * FSML 
18 CONTINUE 

FORRAY<1+1> * RPAR 

WRITE <5*FQRRAY) <TABLE<K*J> rK=1*5) 

20 CONTINUE 

END 

In this example, the DATA statement assigns a left parenthesis to the 
first element of FORRAY and assigns a right parenthesis and three 
field descriptors to variables for later use. The proper field 
descriptors are then selected for inclusion in the format 
specification, based on the magnitude of the individual elements of 
array TABLE. A right parenthesis is then added to the format 
specification just before its use by the WRITE statement. Thus, the 
format specification changes with each iteration of the DO loop. 


6.7 FORMAT CONTROL INTERACTION WITH INPUT/OUTPUT LISTS 

Format control is initiated with the beginning of execution of a 
formatted I/O statement. Each action of format control depends on 
information provided jointly by the next element of the I/O list (if 
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one exists) and the next field descriptor of the FORMAT statement or 
format array. Both the I/O list and the format specification, except 
for the effects of repeat counts, are interpreted from left to right. 

If the I/O statement contains an I/O list, at least one field 
descriptor of a type other than H, X, T or P-must exist in the format 
specification. An execution error occurs if this condition is not 
met. 

When a formatted input statement is executed, it reads one record from 
the specified unit and initiates format control; thereafter, 
additional records can be read as indicated by the format 
specification. Format control demands that a new record be input 
whenever a slash is encountered in the format specification, or when 
the last outer right parenthesis of the format specification is 
reached and I/O list elements remain to be filled. Any remaining 
characters in the current record are discarded at the time the new 
record is read. 

When a formatted output statement is^. executed, it transmits a record 
to the specified unit as format control terminates. Records may also 
be output during format control if a slash appears in the format 
specification or if the last outer right parenthesis is reached and 
more I/O list elements remain to be transmitted. 

Each field descriptor of types I, 0, F, E, D, G, L, A, and Q 
corresponds to one element in the I/O list. No list element 
corresponds to an H, X, P, T, or alphanumeric literal field 
descriptor. In the case of H and alphanumeric literal field 
descriptors, data transfer takes place directly between the external 
record and the format specification. 

When format control encounters an I, 0, F, E, D, G, L, A, or Q field 
descriptor, it determines if a corresponding element exists in the I/O 
list. If so, format control transmits data, appropriately converted 
to or from external format, between the record and the list element, 
then proceeds to the next field descriptor (unless the current one is 
to be repeated). If there is no corresponding list element, format 
control terminates. 

When the last outer right parenthesis of the format specification is 
reached, format control determines whether or not there are more I/O 
list elements to be processed. If not, format control terminates. If 
additional list elements remain, however, the current record is 
terminated, a new one initiated, and format control reverts to the 
rightmost top-level group repeat specification (the one whose left 
parenthesis matches the next-to-last right parenthesis of the format 
specification). (This concept is known as format reversion.) If no 
group repeat specification exists in the format specification, format 
control returns to the initial left parenthesis of the format 
specification. Format control continues from that point. 


6.8 SUMMARY OF RULES FOR FORMAT STATEMENTS 

The following is a summary of the rules pertaining to the construction 
and use of the FORMAT statement or format array and its components, 
and to the construction of the external fields and records with which 
a format specification communicates. 


6-19 












FORMAT STATEMENTS 


6.8.1 General 

1. A FORMAT statement must always be labeled. 

2. In a field descriptor such as rlw.or nX, the terms r, w, and 

n must be unsigned integer constants greater than zero. The 

repeat count and field width specification may be omitted. 

3. In a field descriptor such as Fw.d, the term d must be an 
unsigned integer constant. It must be present in F, E, D, 
and G field descriptors even if it is zero. The decimal 
point must also be present. The field width specification, 
w, must be greater than or equal to d. The w and d must 
either both be present or both omitted. 

4. In a field descriptor such as nHc,c 2 ... c , exactly n 

characters must be present following the H format code. Any 

ASCII character may appear in this field descriptor (an 
alphanumeric literal field descriptor follows the same 
rule). > 

5. In a scale factor of the form nP, n must be a signed or 
unsigned integer constant in the range -127 to 127 
inclusive. Use of the scale factor applies to F, E, D, and 
G field descriptors only. Once a scale factor has been 
specified, it applies to all subsequent real or double 
precision field descriptors in that format specification 
until another scale factor appears; an explicit OP 
specification is required to reinstate a scale factor of 
zero. Note that format reversion has no effect on the scale 
factor. 

6. No repeat count is permitted in H, X, T or alphanumeric 
literal descriptors unless those field descriptors are 
enclosed in parentheses and treated as a group repeat 
specification. 

7. If an I/O list is present in the associated I/O statement, 
the format specification must contain at least one field 
descriptor of a type other than H, X, P, T or alphanumeric 
literal. 

8. A format specification in an array must be constructed 
identically to a format specification in a FORMAT statement, 
including the initial and terminal parentheses. When a 
format array name is used in place of a FORMAT statement 
label in an I/O statement, that name must not be 
subscripted. 


6.8.2 Input 

1. An external input field with a negative value must be 
preceded by a minus symbol; a positive value may optionally 
be preceded by a plus sign. 

2. An external field whose input conversion is governed by an I 
field descriptor must have the form of an integer constant. 
An external field input under control of an O field 
descriptor must have the form of an octal constant (Section 
2.4.5), without a leading double quote. Neither can contain 
a decimal point or an exponent. 
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3. An external field whose input conversion is handled by an F, 
E, or G field descriptor must have the form of an integer 
constant or a real or double precision constant (Section 
2.4.2). It can contain a decimal point and/or an E or D 
exponent field. 

4. If an external field contains a decimal point, the actual 
size of the fractional part of the field, as indicated by 
that decimal point, overrides the d specification of the 
corresponding real or double precision field descriptor. 

5. If an external field contains an exponent, it causes the 
scale factor (if any) of the corresponding field descriptor 
to be inoperative for the conversion of that field. 

6. The field width specification must be large enough to 
accommodate, in addition to the numeric character string of 
the external field, any other characters that can be present 
(algebraic sign, decimal point, and/or exponent). 

7. A comma is the only character that is acceptable for use as 
an external field separator. It is used to terminate input 
of fields that are shorter than the number of characters 
expected, or to designate null (zero-length) fields. 


6.8.3 Output 

1. A format specification must not demand the output of more 
characters than can be contained in the external record (for 
example, a line printer record cannot contain more than 133 
characters including the carriage control character) . 

2. The field width specification, w, must be large enough to 
accommodate all characters that may be generated by the 
output conversion, including an algebraic sign, decimal 
point, and exponent (the field width specification in an E 
field descriptor, for example, should be large enough to 
contain (d + 7) characters) . 

3. The fir^t character of a record output to a line printer or 
terminal is used for carriage control; it is never printed. 
The first character of such a record should be a space, 0,1, 
$, or +. Any other character is treated as a space and is 
deleted from the record. 
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SPECIFICATION STATEMENTS 


This chapter discusses the FORTRAN specification statements. 
Specification statements are nonexecutable. They provide the 
information necessary for the proper allocation and initialization of 
variables and arrays, and define other characteristics of the symbolic 
names used in the program. '» 


7.1 IMPLICIT STATEMENT 


IMPLICIT 


The IMPLICIT statement overrides the implied data type of symbolic 
names, in which all names that begin with the letters I, J, K, L, M, 
or N are presumed to represent integer data and all names beginning 
with any other letter are presumed to be real. 

The IMPLICIT statement has the form: 


IMPLICIT typ(a [,a].. .) (,typ(a[ ,a]...)]... 


typ is one of the following data type specifiers: 

INTEGER 

INTEGER*2 

INTEGER*4 

REAL 

REALM 

REAL*8 

DOUBLE PRECISION 

COMPLEX 

COMPLEX*8 

BYTE 

LOGICAL 

LOGICAL*l 

LOGICALM 



a 


c 


is an alphabetic specification in either of the general form 


is an alphabetic character. 
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^ The lacter form specifies a range of letters, from cl through c2, 

which must occur in alphabetical order. 

• The IMPLICIT statement assigns the specified data type to all symbolic 
names that begin with any specified letter, or any letter within a 
specified range, and which have no explicit type declaration. For 
example, the statements: 

IMPLICIT INTEGER (I,J,K,L,M,N) 

IMPLICIT REAL (A-H, 0-Z) 

represent the default in the absence of any data type specifications. 
IMPLICIT statements must not be labeled. 

Examples 

IMPLICIT DOUBLE PRECISION D 

IMPLICIT COMPLEX (S,Y). 4 , L0GICAL*1 (L,A-C) 

rYPE DEC- 

. ACTION 7.2 TYPE DECLARATION STATEMENTS 

Type declaration statements explicitly define the data type of 
specified symbolic names. 

Type declaration statements have the form: 
typ v[ ,v] . . . 



typ 


v 


is one of the following data type specifiers: 

BYTE 

LOGICAL 

L0GICAL*1 

LOGICALM 

INTEGER 

INTEGERS 

INTEGERM 

REAL 

REA'L*4 

REAL*8 

DOUBLE PRECISION 

COMPLEX 

COMPLEX*8 



is the symbolic name of a variable, array, statement 
function or FUNCTION subprogram, or an array declarator. 


A type declaration statement causes the specified symbolic names to 
have the specified data type; it overrides the data type implied by 
the initial letter of a symbolic name. 


A type declaration statement can define arrays by including array 
declarators (see Section 2.6) in the list. In each program unit, an 
array name can appear only once in an array declarator. 
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A symbolic name can be followed by a data type length specifier of the 
form *s, where s is one of the acceptable lengths for the data type 
being declared. Such a specification overrides, for the item with 
which it was specified, the length attribute implied by the statement. 

For example: 

INTEGER*2 I, J, K, M12*4, Q, IVEC*4(10) 

REAL*8 WX1, WXZ, WX3*4, WX5, WX6*8 

Type declaration statements should precede all executable statements 
and all specification statements except the IMPLICIT statement. It 
must precede the first use of any symbolic name it defines. 

The data type of a symbolic name can be explicitly declared only once. 

Type declaration statements must not be labeled. 

Examples 

INTEGER COUNT, MATRIX(4,4), SUM 
REAL MAN,IABS 
LOGICAL SWITCH 

DIMENSION 

7.3 DIMENSION STATEMENT 

The DIMENSION statement defines the number of dimensions in an array 
and the number of elements in each dimension. 

The DIMENSION statement has the form: 

DIMENSION a(d) [ ,a (d)] ... 

a is the symbolic name of an array. 

d is a dimension declarator. 

Each a(d) is an array declarator as described in Section 2.6. 

The DIMENSION statement allocates a number of storage locations, one 
for each element in each dimension, to each array named in the 
statement. Each ’storage location is one, two, four or eight bytes in 
length, as determined by the data type of the array. The total number 
of locations assigned to an array is equal to the product of all 
dimension declarators in the array declarator for that array. For 
example: 

DIMENSION ARRAY(4,4), MATRIX(5,5,5) 

defines ARRAY as having 16 real elements of two words each, and MATRIX 
as having 125 integer elements of one word each. 

For further information concerning arrays and the storage of array 
elements, see Section 2.6. 

Array declarators can also appear in type declaration, VIRTUAL, and I 
COMMON statements; however, in each program unit, an array name can 
appear in only one array declarator. 

DIMENSION statements must not be labeled. 
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Examples 


* 

COMMON 


SPECIFICATION STATEMENTS 

DIMENSION 600(12,24,10) 

DIMENSION X(5,5,5) ,Y(4,85) , Z (100) 
DIMENSION MARK(4,4,4,4) 


7.4 COMMON STATEMENT 

A COMMON statement defines one or more contiguous areas (blocks) of 
storage. Each block is identified by a symbolic name; in addition, 
one common block is also called the blank common block. A COMMON 
statement also defines the order of variables and arrays that are part 
of each common block. 

Data in COMMON can be referenced from different program units by the 
same block name. > 

The COMMON statement has the form: 

COMMON l/lcb]/] nlist[[,]/[cb]/ nlist]... 

cb is a symbolic name, called a common block name, or is blank. 
If the first cb is blank, the first pair of slashes can be 
omitted. 


nlist is a list of variable names, 
declarators separated by commas. 


array names, and array 


A common block name can be the same as a variable or array name? 
however, it cannot be the same as the name of a function or a 
subroutine, or a function or subroutine entry, in the executable 
program. 

Common blocks with the same name that are declared in different 
program units all share the same storage area when those program units 
are combined into an executable program. 

Because assignment of components to common is on a one-for-one storage 
basis, components assigned by a COMMON statement in one program unit 
should agree in data type with those placed in common by another 
program unit. For example, if one program unit contains the 
statement: 

COMMON CENTS 

and another program unit contains the statement: 

COMMON MONEY 

incorrect results can occur since the 1-word integer variable MONEY is 
made to correspond to the high-order word of the real variable CENTS. 

Care must be taken when LOGICAL*l elements are assigned to common, to 
ensure that any data of other types, assigned following the LOGICAL*l 
data, is allocated on a word boundary. All common blocks start on a 
word (even) boundary. 
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Example 

Subprogram 

SUBROUTINE FIGURE 
COMMON, /BLKl/LIMA,R/ /ALFA,BET 


RETURN 
END 

The COMMON statement in the main program places HEAT and X in blank 
common and places KILO and Q in a labeled common block, BLK1. The 
COMMON statement in the subroutine causes ALFA and BET to correspond 
to HEAT and X in blank common and makes LIMA and R correspond to KILO 
and Q in BLK1. 

A COMMON statement must not contain the names of VIRTUAL arrays 
VIRTUAL array declarators. 


7.4.1 Blank Common and Named Common 

There can be only one blank common block in an entire executable 
program. COMMON statements can be used to establish any number of 
named common blocks. 


7.4.2 COMMON Statements with Array Declarators 

Array declarators can be used in the COMMON statement to define 
arrays. Array names must not be otherwise subscripted (individual 
array elements cannot be assigned to common). In a program unit, an 
array name can appear only once in an array declarator. 



Main Program 

COMMON HEAT,X/BLK1/KILO,Q 
CALL FIGURE 


7.5 EQUIVALENCE STATEMENT 

The EQUIVALENCE t statement declares two or more entities to be 
associated (either totally or partially) with the same storage 
location. The EQUIVALENCE statement references components that exist 
in the same program unit. 

The EQUIVALENCE statement has the form: 


EQUIVA¬ 

LENCE 


EQUIVALENCE (nlist) [, (nlist) ] . . . 


nlist is a list of 
commas. At 
nlist. 


variables and array elements, separated by 
least two components must be present in each 


The EQUIVALENCE statement causes all of the variables or array 
elements in one parenthesized list to be allocated beginning in the 
same storage location. Note that an Integer variable made eguivalent 
to a Real variable shares storage with the high-order word of that 
variable. Mixing of data types in this way is permissible. Multiple 
components of one data type can share the storage of a single 
component of a higher-ranked data type. For example: 
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DOUBLE PRECISION DVAR 
INTEGER*2 IARR(4) 

EQUIVALENCE (DVAR,IARR(1)) 

The EQUIVALENCE statement causes the four elements of the integer 
array IARR to occupy the same storage as the double precision variable 
DVAR. 

The EQUIVALENCE statement can also be used to equate variable names. 
For example, the statement 

EQUIVALENCE (FLTLEN, FLENTH, FLIGHT) 

causes FLTLEN', FLENTH and FLIGHT to have the same definition provided 
they are also of the same data type. 

An EQUIVALENCE statement in a subprogram must not contain dummy 
arguments. An EQUIVALENCE statement must not contain the names of 
VIRTUAL arrays or VIRTUAL array elements. 

> 

Examples 

EQUIVALENCE (A,B), (B,C) (has the same effect as 

EQUIVALENCE (A,B,C)) 

EQUIVALENCE (A(1),X), (A(2),Y), (A(3),Z) 


7.5.1 Making Arrays Equivalent 

When an element of an array is made equivalent to an element of 
another array, the EQUIVALENCE statement also sets equivalences 
between the corresponding elements of the two arrays. Thus, if the 
first elements of two equal-sized arrays are made equivalent, both 
entire arrays are made to share the same storage space. If the third 
element of a 5-element array is made equivalent to the first element 
of another array, the last three elements of the first array overlap 
the first three elements of the second array. 

The EQUIVALENCE statement must not attempt to assign the same storage 
location to two or more elements of the same array, nor to assign 
memory locations in any way that is inconsistent with the normal 
linear storage of array elements (for example, making the first 
element of an array equivalent with the first element of another 
array, then attempting to set an equivalence between the second 
element of the first array and the sixth element of the other). 

In the EQUIVALENCE statement only, it is possible to identify an array 
element with a single subscript (i.e., the linear element number), 
even though the array has been defined as a multi-dimensional array. 

For example, the statements: 

DIMENSION TABLE (2,2), TRIPLE (2,2,2) 

EQUIVALENCE (TABLE(4), TRIPLE(7)) 

result in the entire array TABLE sharing a portion of the storage 
space allocated to array TRIPLE as illustrated in Figure 7-1. 
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Array TRIPLE 

Array TABLE 

Array 

Elemen t 

Array 

Elemen c 

Elemen t 

Number 

Elemen t 

Number 

TRIPLE(1,1,1) 

1 



TRIPLE(2,1,1) 

2 



TRIPLE(1,2,1) 

3 



TRIPLE(2,2,1) 

4 

TABLE(1,1) 

1 

TRIPLE(1,1,2) 

5 

TABLE(2,1) 

2 

TRIPLE(2,1,2) 

6 

TABLE(1,2) 

3 

TRIPLE(1,2,2) 

7 

TABLE(2,2) 

4 

TRIPLE(2,2,2) 

8 




Figure 7-1 

Equivalence of Array Storage 


Figure 7-1 also illustrates that the statements 

» 

EQUIVALENCE (TABLE(1),TRIPLE(4)) 

and 

EQUIVALENCE (TRIPLE(1,2,2) , TABLE(4)) 
result in the same alignment of the two arrays. 


' : V ''' ' v* J.'4"* ’’ 

Equivalencing arrays with nan-uhity lower hounds works in V a similar 
fashion. For example, an array defined as A(2:3,4) is a sequence of 8 
values. A reference to A(2,2) refers to the third element in the 
sequence. If array A(2:3,4) is to share storage with array B{2:4,4) 
the following statement can be used. 


EQUIVALENCE (A(8) , B(10) ) 


mm 


The entire array A occupies a portion of the storage space allocated 
to array B as illustrated in Figure 7-2. Note also that EQUIVALENCE 
(A, B(3)) and EQUIVALENCE (B(10), A(3,4)) would have caused the same 
alignment of arrays^ ? <4.-.Mg 
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P^>GRAM 



7.9 

The 

The 


PROGRAM STATEMENT 

PROGRAM statement, if used, assigns a name to a main program unit. 
PROGRAM statement has the form: 


PROGRAM nam 


nam is a symbolic name. 

The PROGRAM statement must be the first statement in the main program; 
its use is optional. The symbolic name may not be the same as the 
name of any entity within the main program and it must not be the same 
as the name of any subprogram, entry, or common block in the same 
executable program. 
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CHAPTER 8 


SUBPROGRAMS 


FORTRAN subprograms are divided into two general classes: those that 
are written by the user and those that are supplied by the FORTRAN 
system. Subprograms are also grouped into the categories of 
functions, which includes both arithmetic statement functions and 
FUNCTION subprograms, and subroutines. 


8.1 SUBPROGRAM ARGUMENTS 

Arguments to subprograms are represented in two ways: dummy arguments 
and actual arguments. Dummy arguments are used in the subprogram 
definition to represent the corresponding actual argument. Dummy 
arguments appear in the FUNCTION statement, SUBROUTINE statement or 
arithmetic statement function definition as unsubscripted variable 
names. Actual arguments appear in the function reference or CALL 
statement that references the subprogram and provide actual values to 
be used for computation. Actual arguments can be constants, 
variables, arrays, array elements, expressions or subprogram names. 

Actual and dummy arguments become associated at the time control is 
transferred to the subprogram. Actual and dummy arguments that become 
associated must agree in data type. A dummy argument declared as an 
array can only become associated with an array or array element. 

If an actual argument is a constant, expression or subprogram name, 
the subprogram must not alter the value of the corresponding dummy 
argument. 

Dummy arguments must not appear in COMMON, EQUIVALENCE or DATA 
statements. 


8.2 USER-WRITTEN SUBPROGRAMS 

Control is transferred to a function by means of a function reference 
while control is transferred to a subroutine by a CALL statement. A 
function reference is the name of the function, together with its 
arguments, appearing in an expression. A function always returns a 
value to the calling program. Both functions and subroutines may 
return additional values via assignment to their arguments. A 
subprogram can reference other subprograms, but it cannot, either 
directly or indirectly, reference itself. 
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8.2.1 Arithmetic Statement Function (ASF) 

An arithmetic statement function is a computing procedure defined by a 
single statement, similar in form to an arithmetic assignment 
statement. The appearance of a reference to, the function within the 
same program unit causes the computation to be performed and the 
resulting value to be made available to the expression in which the 
ASF reference appears. 

The arithmetic statement function definition has the form: 
f ([p[fP]♦..])=e 
f is the name of the ASF. 

p is a dummy argument, 

e is an expression. 

The expression is an arithmetic* expression that defines the 
computation to be performed by the ASF. 

A function reference to an ASF has the form: 

f ([p[,p]...]> 

where f is the name of the ASF, and each p is an actual argument. 

When a reference to an arithmetic statement function appears in an 
expression, the values of the actual arguments are associated with the 
dummy arguments in the ASF definition. The expression in the defining 
statement is then evaluated and the resulting value is used to 
complete the evaluation of the expression containing the function 
reference. 

The data type of an ASF is determined either implicitly by the initial 
letter of the name or explicitly in a type declaration statement. 

Dummy arguments in an ASF definition serve only to indicate the 
number, order, and data type of the actual arguments. The same names 
may be used to represent other entities elsewhere in the program unit. 
Note that with, the exception of data type, declarative information 
(such as placement in COMMON or declaration as an array) associated 
with such an entity is not associated with the ASF dummy arguments. 
The name of the ASF cannot be used to represent any other entity 
within the same program unit. 

The expression in an ASF definition may contain function references. 
If a reference to another ASF appears in the expression, that function 
must have been defined previously. 

Any reference to an ASF must appear in the same program unit as the 
definition of that function. 

An ASF reference must appear as, or be part of, an expression; it 
must not be used as the left side of an assignment statement. 

Actual arguments must agree in number, order, and data type with their 
corresponding dummy arguments. Values must have been assigned to them 
before any reference to the arithmetic statement function. 
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Examples 


ASF Definitions 

VOLUME(RADIUS) = 4.189*RADIUS**3 - 

SINH(X) = (EXP(X)-EXP(-X))*0.5 

AVG (A / B, C , 3.) = (A+B+O/3. (Invalid; constant as dummy 

argument not permitted) 

ASF References 

AVG (A, B, C) * (A+B+O/3. (Definition) 

GRADE * AVG(TEST1,TEST2,^LAB) 

IF (AVG(P,D,Q).LT.AVG(X,Y,2)) GO TO 300 

FINAL * AVG(TEST3,TEST4,LAB2) (Invalid; data type of third 

argument does not agree with 
dummy argument) 

8.2.2 FUNCTION Subprogram 


A FUNCTION subprogram is a program unit that consists of a FUNCTION 
s t a tement followed by a series of statements that define a computing 
procedure. Control is transferred to a FUNCTION subprogram by a 
function reference and returned to the calling program unit by a 
RETURN statement. 


A FUNCTION subprogram returns a single value to the calling program 
unit by assigning that value to the function's name. The data type of 
the value returned is determined by the function’s name. 

The FUNCTION statement has the form: 


typ 

[typ] 

is a 

FUNCTION nam[*n][([p[,p]...])] 

data type specifier. 

nam 

is a 

name of the function. 

*n 

is a 

data type length specifier. 

P 

is a 

dummy argument. 


A function reference that transfers control to a FUNCTION subprogram 
has the form: 


nam ([p[,p]...]) 

where nam is the symbolic name of the function, and each p is an 
actual argument. 
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When control is transferred to a FUNCTION subprogram, the values 
supplied by the actual arguments (if any) are associated with the 
dummy arguments (if any) in the FUNCTION statement. The statements in 
the subprogram are then executed. The name of the function must be 
assigned a value before a RETURN statement is executed in that 
function. When control is returned to the calling program unit, the 
value thus assigned to the function's name is made available to the 
expression that contains the function reference, and is used to 
complete the evaluation of that expression. 

The type of a function name may be specified implicitly, explicitly in 
the FUNCTION statement, or explicitly in a type declaration statement. 
The type of the function name as defined in the FUNCTION subprogram 
must be the same as the type of the function name in the calling 
program unit. 

The FUNCTION statement must be the first statement of a function 
subprogram. It must not be labeled. 

> 

A FUNCTION subprogram must not contain a SUBROUTINE statement, a BLOCK 
DATA statement, or a FUNCTION statement other than the initial 
statement of the subprogram. 

Example 


FUNCTION ROOT(A) 

X = 1.0 

2 EX = EXP(X) 

EMINX = 1./EX 

ROOT = ( (EX+EMINX)*.5+COS(X)-A)/((EX - EMINX)*.5-SIN(X)) 
IF (ABS(X-ROOT).LT.IE-6) RETURN 
X = ROOT 
GO TO 2 
END 


The function in this example uses the Newton-Raphson iteration method 
to obtain the root of the function: 


F(X) = cosh(X) + cos(X) - A = 0 

where the value of A is passed as an argument. The iteration formula 
for this root is: 


Xi + 1 


Xi - 


cosh(Xi)+cos(Xi)-A 
sinh(Xi)-sin(Xi) 


which is repeatedly calculated until the difference between Xi and 
Xi+1 is less than 1 x 10~ 6 # The function makes use of the FORTRAN 
Library functions EXP, SIN, COS, and ABS. 


8.2.3 SUBROUTINE Subprogram 

A SUBROUTINE subprogram is a program unit that consists of a 
SUBROUTINE statement followed by a series of statements that define a 
computing procedure. Control is transferred to a SUBROUTINE 
subprogram by a CALL statement and returned to the calling program 
unit by a RETURN statement. 
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The SUBROUTINE statement has the form: 


SUBROUTINE nam [([p[,p].•.])] 
nam is the name of the subroutine, 
p is a dummy argument. 

The form of the CALL statement is described in Section 4.5. 


When control is transferred to the subroutine, the values supplied by 
the actual arguments (if any) in the CALL statement are associated 
with the corresponding dummy arguments (if any) in the SUBROUTINE 
statement. The statements in the subprogram are then executed. 

The SUBROUTINE statement must be the first statement of a subroutine; 
it must not have a statement label. 

A SUBROUTINE subprogram cannot contain a FUNCTION statement, a BLOCK 
DATA statement, or a SUBROUTINE % statement other than the initial 
statement of the subprogram. 

Example 

Main Program 

COMMON NFACES,EDGE,VOLUME 
ACCEPT 65, NFACES,EDGE 
65 FORMAT(12,F 8.5) 

CALL PLYVOL 
TYPE 66, VOLUME 
6 6 FORMAT ('AVOLUME= 1 ,F) 

STOP 

END 


SUBROUTINE Subprogram 


1 

2 

3 

4 

5 

6 

100 


SUBROUTINE PLYVOL 
COMMON NFACES,EDGE,VOLUME 
CUBED = EDGE**3 

GOTO (6,6,6,1,6,2,6,3,6,6,6,4,6,6,6,6,6,6,6,5,6),NFACES 

VOLUME = CUBED * 0.11785 

RETURN 

VOLUME = CUBED 
RETURN 

VOLUME = CUBED * 0.47140 
RETURN 

VOLUME = CUBED * 7.66312 
RETURN 

VOLUME = CUBED * 2.18170 
RETURN 

TYPE 100, NFACES 

FORMAT(' NO REGULAR POLYHEDRON HAS ',13, 'FACES. 1 /) 

RETURN 

END 


The subroutine in this example computes the volume of a regular 
polyhedron, given the number of faces and the length of one edge. It 
uses the computed GO TO statement to determine whether the polyhedron 
is a tetrahedron, cube, octahedron, dodecahedron, or icosahedron, and 
to transfer control to the proper procedure for calculating the 
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is a tetrahedron, cube, octahedron, dodecahedron, or icosahedron, and 
to transfer control to the proper procedure for calculating the 
volume. If the number of faces of the body is other than 4,6,8,12, or 
20, the subroutine displays an error message on the user's terminal. 


ENTRY 
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subprogram. l$Vf§ 
subroutine RfCgiam 
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Subprograms a vL^ 
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referenced as external function references 

A function entry name can appear in a type declaration statement. 

An entry name can appear in an EXTERNAL statement and be used as an 
actual argument; the entry name in an ENTRY statement cannot be a 
dummy argument. 

; VJ 

Entry names cannot appear in executable statements that physically 
precede the appearance of the entry name In an ENTRY statement. 

The order, number# type and names of the dummy arguments in an ENTRY 
statement can be different from the order, number, type and names of 
the dummy arguments in the FUNCTION statement# SUBROUTINE statement, 
and other ENTRY statements in the same subprogram. However, each 
reference to a function, subroutine, n entry must use an actual 
argument list that agrees in order, number and type with the dummy 
argument list m the corresponding FUNCTION, SUBROUTINE, or ENTRY 


statement. 
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8.2.4. 1 ENTRY in Function Subprograms - All entry names within a 
function subprogram are associated with the name of the function 
subprogram. Therefore, definition of any entry name or the name of 
the function subprogram causes definition of all the associated names 
that are of the same type and causes all associated names that are of 
different type to become undefined. The function and entry names are 
not required to be the same type, but at the execution of a RETURN 
statement or the implied return at the end of the subprogram, the name 
used to reference the function subprogram must be defined. Note that 
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REAL FUNCTION TANK(X) 


C ASF TO COMPUTE TWICE SINN 
C 

TSINH(Y) • EXP(Y) - EXP (- 

c ■■ ■ *. * 

e i ASF TO COMPUTEifpjCE COSH 

c* l < 
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ENTRY SINK(X) 
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ENTRY COSH (X) • ' 

Cimi “ TCOSH (X) / 2.0 
RETURN 7,yV '■ ’ ' ’ : - 
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BLOCK 

DATA 

8.2.5 BLOCK DATA Subprogram 

The BLOCK DATA subprogram is used to assign initial values to entities 
in labeled common blocks, at the same time establishing and defining 
those blocks. It consists of a BLOCK DATA statement followed by a 
series of specification statements. 

The BLOCK DATA statement has the form: 


BLOCK DATA [nam] 
nam is a symbolic name. 

The statements allowed in a BLOCK DATA subprogram are: Type 
Declaration, IMPLICIT, DIMENSION, COMMON, EQUIVALENCE, and DATA 
statements. 


The specification statements in the BLOCK DATA subprogram establish 
and define common blocks, assign variables and arrays to those blocks, 
and assign initial values to those components. 

A BLOCK DATA statement must be the first statement of a BLOCK DATA 
subprogram. It must not be labeled. 
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A BLOCK DATA subprogram must not contain any executable statements. 

If any entity in a labeled common block is initialized in a BLOCK DATA 
subprogram, a complete set of specification statements to establish 
che entire block must be present, even though some of the components 
in the block do not appear in a DATA statement. Initial values can be 
defined for more than one block by the same subprogram. 

Example 

BLOCK DATA 
INTEGER S,X 
LOGICAL T,W 
DOUBLE PRECISION U 
DIMENSION R(3) 

COMMON /AREA1/R,S,T,U/AREA2/W,X,Y 

DATA JR/1. 0, 2*2. 0/,T/. FALSE. / , U/0. 21 4537D-7/, W/. TRUE. /,Y/3.5/ 
END 


8.3 FORTRAN LIBRARY FUNCTIONS 

The FORTRAN library functions are listed in Appendix B. Function 
references to FORTRAN library functions are written in the same form 
as function references to user-defined functions. For example, 

R = 3.14159 * ABS(X-l) 

causes the absolute value of X-l to be calculated, multiplied by the 
constant 3.14159, and assigned to the variable R. 

The data type of each library function and the data type of the actual 
arguments is specified in Appendix B. Arguments passed to these 
functions may not be array names or subprogram names. 


8.3.1 Processor-Defined Function References 

•' , " 'j ’ 

The FORTRAN library function names are called processor-defined 
function (PDF) names. Note that the processor-defined functions 
include both the Intrinsic functions and the Basic External Functions 
defined in Standard FORTRAN and are treated in a uniform manner. 

A name appearing in the table of PDF names normally refers to the 
FORTRAN library function. The name is assumed to refer to a 
user-defined function if any of the following conditions exists*. 

. i t y * * j > * rV S \ * Ct i ' \ \ * \ 'ft f } mir ~ 

1. The name appears in a type declaration statement specifying a 
type different from the result type shown in the table. 

2. The name appears in an EXTERNAL statement preceded by an 
asterisk. 

3. The name is used in a function reference with arguments of a 
different type than shown in the table. 







t , : w .*■ v^ir»:eK : rSi*K. ra,.'.*! a ■.ai.m**!*. •«»** • ■ 


SUBPROGRAMS 



Processor-defined function references are 
which they occur and do not affect or prec 
any other purpose in other program units. 

.. >; • ' . 

Use of a PDF name in an EXTERNAL statement 
specifies that the name refers to a funt 
be provided by the user, and the game 
same sense that the names of functions $ti| 


8.3.2 Generic Function Re 

Generic function names |»ro 
mathematical functior§j|®| 
library routine used based 
the £unc tiontelerenc©*;*< 
SIN(X) will reference the 
double j?recisioii WisH 


valuede 


Generic function selection is performe 
function reference. /• in‘ >fefce fit 

SIN (D) can be ufed in the same program unii 

;--The function names fdr w^|§h : /generic 
are shown in Table 8-1. Generic functio 
% with the argument types sthowp in tatele 

The names shown in Table 8-1 will lose the 
property if used in a program unit in any’ 

’’M >‘\i ' ’ ’-V i4 <• -‘Hv *”‘"&i 

T. In a type declaration statement;!**' 

- ! : -v: -; 

2. As the name of an arithmetic stab 

3. As a dummy argument name, common 


*which it 


occurs and 
as a user-written subj 


other program units 
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Table 8-l.v4;, 
Generic Function Name 

‘ &' * • . 4 a 


w * 


Symbolic Name 




AlNf^ 








y-i -OOubleau 


LOGIO, TAN, ATAN, ATAN2, ASIN, 
ACOS, SINK, COSH, and TANH £ 


COSH, and TANH 




llfi^Sr ft 

v *Sp**9'lK MWjrn~F* , 1 r ~ ~ w 7"y :T '" * *. '< ~ v * * ' -- ■ ■"," * it* . ' ■ .in, jj pe ppewpwi ft ?1 

, -m i. 1* . < • ' , ^ ^KC, iff *r' * 

The example in Figure 8-2 illustrates tbe use of generic and 
processor-defined function references. The name SIN is used in four 
distinct ways m the figure to emphasize tbe local and global name 
proper tieB of each type o, use within a .in 9 ie beatable pro 9 ra»: 

X. AS the none o £ an arithmetic statement function 

2. As a generic function reference 


.3 Generic and 


filiation 


As.* user-defined funafcfc* 
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The following comments elaborate on the notes contained in Figure 8-2. 


Note 


Comment 




1. An arithmetic statement function if anted SIN is defined in 
terms of the generic function name COS. Since the argument 
of COS is double precision, the double precision cosine 
function will be evaluated. . 


2. The arithmetic; statement function 

3. The name SIN is declared 



as an actual af^Ument. 

6. The name SIN is declared a us«« 

7. The type of SIN* is declared to be double precision. 

8. The single precision sine function passed at note 5 is 
evaluated. 

9. The user-defined SIN function is evaluated. 

10. The user-defined SIN function is defined as a simple Taylor 
series using a user-defined function FACTOR to compute the 
factorial 'function tiS v ' t wiwwwic 


4mW>- 

juBfijSSKt!.. 


Irani m- 


mmi 


mm 
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APPENDIX A 


CHARACTER SETS 


A - 1 FORTRAN CHARACTER SET 

The FORTRAN character set consists of: 

1. The letters A through Z and a through z 

2. The numerals 0 through 9 

3. The following special characters: 


Charac ter 

A 


/ 

( 

) 


< 

> 


Name 

Space or Blank or Tab 

Equals 

Plus 

Minus 

Asterisk 

Slash 

Left Parenthesis 
Right Parenthesis 
Comma 

Decimal Point 
Apostrophe 
Double Quote 
Dollar Sign 
Colon 

Left Angle Bracket 

Right Angle Bracket 

' . . 
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Other, printable characters may appear in a FORTRAN statement only as 
part of a Hollerith constant or alphanumeric literal. Any printable 
character may appear in a comment. 


A. 2 ASCII CHARACTER SET ut p 



ASCII 


ASCII 




ASCII 

Decimal Char- 

Decimal 

Char¬ 



Decimal 

Char 


Value acter Usage 

Value 

acter 

Usage 


Value 

acter Usage 

0 

NUL FILL character 

43 

+ 



86 

V 


1 

SOH 

44 

* COMMA 


87 

W 


2 

STX 

45 

- 



88 

X 


3 

ETX CTRL/C 

46 

• 



89 

Y 


4 

EOT 

47 




90 

Z 


5 

enq 

46 

49 

0 



91 

[ 


6 

ACK 

1 



92 

\ 

Backslash 

7 

BEL BELL 

50 

2 



93 

] 


/-B 


51 

3 



94 


or t 

9 

Utf HT HORIZONTAL TAB 

52 

4 



95 


or «- 

10 

l LF LINE FEED 

53 

5 



96 

- 

Grave accent 

11 

f VT VERTICAL TAB 

54 

6 



97 

a 


12 

~~>FF FORM FEED 

55 

7 



98 

b 


13 

CR CARRIAGE RETURN 

56 

8 



99 

c 


14 

SO 

57 

9 



100 

d 


15 

SI CTRL/O 

58 

: 



101 

e 


16 

DLE 

59 

; 



102 

f 


17 

DC1 

60 

< 



103 

g 


18 

DC 2 

61 

= 



104 

h 


19 

DC 3 

62 

> 



105 

i 


20 

DC 4 

63 

? 



106 

j 


21 

NAK CTRL/U 

64 

@ 



107 

k 


22 

SYN 

65 

A 



108 

1 


23 

ETB 

66 

B 



109 

m 


24 

CAN 

67 

C 



110 

n 


25 

EM 

68 

D 



111 

o 


26 

SUB CTRL/Z 

69 

E 



112 

P 


27 

ESC ESCAPE 1 

70 

F 



113 

q 


28 

29 

fs ' * 

GS 

J71 

72 

G 

H 



114 

115 

r 

s 


30 

rs 

73 

I 



116 

t 


31 

us J 

74 

J 



117 

u 


32 

SP SPACE 

75 

K 



118 

V 


33 

! 

76 

L 



119 

w 


34 

ii 

77 

M 



120 

X 


35 

# 

78 

N 



121 

y 


36 

$ 

79 

0 



122 

z 


37 

% 

80 

P 



123 

{ 


38 

& 

81 

Q 



124 


Vertical Line 

39 

’ APOSTROPHE 

82 

R 



125 

} 


40 

( 

) 

83 

S 



126 


Tilde 

41 

84 

T 



127 

DEL RUBOUT 

42 

★ 

85 

U 






1 ALTMODE (ASCII 125) or PREFIX (ASCII 
translated internally into ESCAPE. 

126) keys 

which 

appear on some terminals are 
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A.3 RADIX-50 CHARACTER SET 

Radix-50 is a special character data representation in which up to 
three characters from the Radix-50 character set (a subset of the 
ASCII character set) can be encoded and packed into a single PDP-11 
storage word. 

The Radix-50 characters and their corresponding code values are as 
follows: 


Character 

Space 
A - Z 
$ 

(Unassigned) 

0-9 


ASCII Octal 
Equivalent 

40 

101 - 132 
44 
56 

60 - 71 


Radix-50 Value 
(Octal) 

0 

1-32 

33 

34 

35 

36 - 47 


Radix—50 values are stored, up to three characters per word, by 
packing them into single numeric values according to the formula: 

( (i * 50 + j) * 50 + k) 

where "i", "j", and "k" represent the code values of three Radix-50 
characters. 


The maximum Radix-50 value is, thus, 

47*50*50 + 47*50 + 47 = 174777 

The following table provides a convenient means of translating between 
the ASCII character set and its Radix-50 equivalents. For example, 
given the ASCII string X2B, the Radix-50 equivalent is (arithmetic is 
performed in octal): 

X = 113000 
2 = 002400 

B = 000002 


X2B = 115402 
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Radix-50 Character/Position Table 


Single 

or 

First 

Char . 

Char . 

Second 

Character 

Third 

Character 

Space 

000000 

Space 

000000 

Space 

000000 

A 

003100 

A 

000050 

A 

000001 

B 

006200 

B 

000120 

B 

000002 

C 

011300 

C 

000170 

C 

000003 

D 

014400 

D 

000240 

D 

000004 

E 

017500 

E 

000310 

E 

000005 

F 

022600 

F 

000360 

F 

000006 

G 

025700 

G 

000430 

G 

000007 

H 

031000 

H 

000500 

H 

000010 

I 

034100 

I > 

000550 

I 

000011 

J 

037200 

J 

000620 

J 

000012 

K 

042300 

K 

000670 

K 

000013 

L 

045400 

L 

000740 

L 

000014 

M 

050500 

M 

001010 

M 

000015 

N 

053600 

N 

001060 

N 

000016 

0 

056700 

0 

001130 

0 

000017 

P 

062000 

P 

001200 

P 

000020 

Q 

065100 

Q 

001250 

Q 

000021 

R 

070200 

R 

001320 

R 

000022 

S 

073300 

S 

001370 

S 

000023 

T 

076400 

T 

001440 

T 

000024 

U 

101500 

U 

001510 

U 

000025 

V 

104600 

V 

001560 

V 

000026 

W 

107700 

w 

001630 

W 

000027 

X 

113000 

X 

001700 

X 

000030 

Y 

116100 

Y 

001750 

Y 

000031 

Z 

121200 

Z 

002020 

Z 

000032 

$ 

124300 

$ 

002070 

$ 

000033 


127400 

# 

002140 

. 

000034 

UNUSED 

132500 

UNUSED 

002210 

UNUSED 

000035 

0 

135600 

0 

002260 

0 

000036 

1 

1.40700 

1 

002330 

1 

000037 

2 

144000 

2 

002400 

2 

000040 

3 

147100 

3 

002450 

3 

000041 

4 

152200 

4 

002520 

4 

000042 

5 

155300 

5 

002570 

5 

000043 

6 

160400 

6 

002640 

6 

000044 

7 

163500 

7 

002710 

7 

000045 

8 

166600 

8 

002760 

8 

000046 

9 

171700 

9 

003030 

9 

000047 
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FORTRAN LANGUAGE SUMMARY 


B.l EXPRESSION OPERATORS 


Operators in each type are shown in order of descending precedence. 


Type 

Operator 

Operates Upon 

Arithmetic 

* * 

exponentiation 

arithmetic or logical 


*,/ 

multiplication, 

constants, 



division 

variables, and 



addition, subtraction 
unary plus and minus 

expressions 

Relational 

.GT. 

greater than 

arithmetic or logical 


.GE. 

greater than or 

constants, variables, 



equal to 

and expressions 


.LT. 

less than 

(all 


.LE. 

less than or 

relational operators 



equal to 

have equal priority) 


.EQ. 

equal to 



.NE. 

not equal to 


Logical 

.NOT. 

.NOT.A is true if and 

logical or integer 



only if A is false 

constants, variables, 
and expressions 


.AND. 

A.AND.B is true if 
and only if A and B 
are both true 



.OR. 

A.OR.B is true if and 
only if either A or 

B or both are true 



. EQV. 

A.EQV.B is true if and 

(precedence same 



only if A and B 
are both true or A 
and B are both false. 

as .XOR.) 


. XOR. 

A.XOR.B is true if and 

(precedence same 



only if A is true and 

B is false or B is 
true and A is false. 

as .EQV.) 
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FORTRAN LANGUAGE SUMMARY 


B.2 STATEMENTS 

The following summary of statements available in the PDP-11 FORTRAN 
language defines the general format for the statement. If more 
detailed information is needed, the reader is referred to the 
Section (s) in the manual dealing with that particular statement. 




Statement Formats 

ACCEPT See 


Effect 


v=e 


v 

e 


is a variable name or an array element name, 
is an expression. 

The value of the arithmetic or logical 
expression is assigned to the variable. 


Arithmetic Statement Function 
£([p[#?]...])*e 

f is a symbolic name, 
p is a symbolic name, 
e is an expression. 


Creates a user-defined function having 
the variables p as dummy arguments. 
When referenced, the expression is 
evaluated using the actual arguments in 
the function call. 


ASSIGN s TO v 

s is an executable statement label. 

v is an integer variable name. 

Associate the statement number s with 
the integer variable v for later use in 
an assigned GO TO statement. 


Manual 

Section 


READ, Formatted Sequential 

5.4.3 

READ, List-Directed 

5.7.3 

# ^ 

Assignment 

3.1 


3.2 


8 . 2.1 


3.3 
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u 5.9.2 

is an integer variable or constant. 

The currently open file on logical unit 
u is backspaced one record. 

BLOCK DATA [nam] 8.2.5 

nam is a symbolic name. 

Specifies the subprogram which follows 
as a BLOCK DATA subprogram. 

CALL s[([a] [, [a]]...)] 4.5 

is a subprogram name. 

is an expression, a procedure name, or an array name. 

Calls the SUBROUTINE subprogram with the 
name specified by s, passing the actual 
arguments a to replace the dummy 
arguments in the SUBROUTINE definition. 



BACKSPACE 


CLOSE (p[,p]...) 

p is one of the following forms: 



UNIT = e 


DISPOSE = 

'SAVE’ 

or 

DISP = 

'SAVE’ 

DISPOSE = 

'KEEP' 

or 

DISP = 

'KEEP ' 

DISPOSE = 

'DELETE' 

or 

DISP = 

'DELETE 

DISPOSE = 

'PRINT' 

or 

DISP = 

'PRINT' 


ERR = s 


e is. a numeric expression 
s is an executable statement label 


Closes the specified file. 


5.9.7 


COMMON [/[cb]/] nlist [[,]/[cb]/nlist]... 7.4 

cb is a common block name. 

nlist is a list of one or more variable names, array names, or 
array declarators separated by commas. 

Reserves one or more blocks of storage 
space under the name specified to 
contain the variables associated with 
that block name. 
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FORTRAN LANGUAGE SUMMARY 


CONTINUE 


4.4 


Causes no processing. 

DATA nlist/clist/[[,] nlist/clist/].. 
nl ist 


7.7 


is a list of one or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 

clist is a list of one or more constants separated by commas, 
each optionally preceded by j*, where j is a nonzero, 
unsigned integer constant. 

Causes elements in the list of values to 
be initially stored in the corresponding 
elements of the list of variable names. 


DECODE (c,f,b[,ERR=s])[list] 


c 

is 

an 

f 

is 

a 

b 

is 

a 

s 

is 

an 

list 

is 

an 


5.10 


in 

the 

I/O 

list 

nte 

r nal 

format; c 

of 

cha 

racters, f 

and b 

is the 

name 

ng 

the 

characters 


to be converted. 


DEFINE FILE u(m,n,U,v)[,u(m,n,U,v)]... 


5.9.4 


u 

m 

n 

v 


is an integer variable name or integer constant. 

is an integer variable name or integer constant. 

is an integer variable name or integer constant. 

is an integer variable name. 

Defines the record structure of a 
direct access file 
logical unit number, 
fixed length recorc 
the length in words c 

U is a fixed argument, and v is the 
associated variable. 


where 

u is 

the 

is the 

number 

of 

in the 

f ile, 

n is 

a single record. 
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FORTRAN LANGUAGE SUMMARY 


DIMENSION a(d)(,a(d)]... 


7.3 


a(d) is an array declarator. 

Specifies storage space requirements for 
arrays. 


DO s [,] i - el,e2[,e3] 4.3 

s is the label of an executable statement, 

i is a variable name, 

ei are integer expressions. 

To execute the DO loop: 

1. Set i = el * 

2. Execute statements through 
statement number s 

3. Evaluate i = i+e3 

4. Repeat 2 through 3 for 

MAX (1, INT ( (e2 - el)/e3) + 1) 
iterations 


ENCODE (c,f,b[,ERR=s]) [list] 5.10 

c is an integer expression. 

f is a FORMAT statement label or an array name. 

b is a variable name, array name, or array element name. 

s is an executable statement label. 

list is.an I/O list. 

Changes the elements in the list of 
variables into characters; c specifies 
the number of characters in the buffer, 
f specifies the format statement number, 
and b is the name of the entity to be 
used as a buffer. 


END 


Delimits a program unit. 

END FILE u 

u is an integer variable or constant. 

An end-file record is written on logical 
unit u. 


4.9 


5.9.3 
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% 



END=s,ERR=s 

s is an executable statement label. 

(Transfer of Control) on end-af-file or 
error condition is an optional element 
in each type of I/O statement allowing 
the program to transfer to statement 
number s on an end-of-file (END=) or 
error (ERR=) condition. 


5.8 





EQUIVALENCE (nlist) (, (nlist)]... 


nl ist 


is a list of two or more variable names, array names, or 
array element names separated by commas. Subscript 
expressions must be constant. 


Each of the names (nlist) within a set 
of parentheses is assigned the same 
storage location. 


EXTERNAL v[ ,v] ... 


v 



is a.subprogram name. 

Defines the names specified as FUNCTION 
or SUBROUTINE subprograms. 


7.6 



EXTERNAL 


is a subprogram name. 
Defines the names 


specified 


user-de£ine<3 subprograms 




, 
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FIND (u'r) 

u is an integer variable name or integer constant. 

r is an integer expression. 

Positions the file on logical unit u to 
record r and sets associated variable to 
record number r. 


FORMAT (field specification,...) 6.1 

Describes the format in which one or 
more records are to be transmitted; a 
statement label must be present. 


[typ] FUNCTION nam [ *n] [ ([p [ ,p] . ..)) }. 

typ is a data type specifier. 

nam is a symbolic name. 

*n is a data type length specifier. 

p is a symbolic name. 

Begins a FUNCTION subprogram, indicating 
the program name and any dummy argument 
names, p. An optional type 

specification can be included. 


GO TO s 


s is an executable statement label. 

(Unconditional GO TO) Transfers control 
to' statement number s. 


GO TO (slist) (,] e 

slist is a list of one or more executable statement 
separated by commas. 

e is an integer expression. 

(Computed GO TO) Transfers control to 
the statement label specified by the 
value of expression e. (If e=l control 
transfers to the first statement label. 

If e=2 it transfers to the second 
statement label. etc.) If e is less 
than 1 or greater than the number of 
statement labels present, no transfer 
takes place. 


5.9.5 


- 6.8 


8 . 2.2 


4.1.1 


4.1.2 

labels 
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FORTRAN LANGUAGE SUMMARY 


GO TO v [[,](slist)] 

v is an integer variable name, 

slist 


4.1.3 


0* k 


a u f ° ne or more executable statement labels 
separated by commas. 

(Assigned GO TO) Transfers control to 
the statement most recently associated 
with v by an ASSIGN statement. 


IF (e) sl,s2,s3 


4.2.1 


e 

si 


is an expression. 

are executable statement labels. 

(Arithmetic IF) Transfers control to 
statement number si depending upon the 
value of the expression. If the value 
of the expression is less than zero, 
transfer to si; if the value of the 
expression is equal to zero, transfer to 
s 2; if the value of the expression is 
greater than zero, transfer to s3. 


IF (e) st 
e 

st 


is an expression. 

is any executable statement except a 
statement. 


DO 


4.2.2 


or logical IF 


(Logical IF) Executes the statement if 
the logical expression is true. 


IMPLICIT typ (a[,a]...)f,typ(a[,a]...)]... 


7.1 


typ 

a 


is a data type specifier 


is either a single letter, or two letters in alphabetical 
order separated by a dash (i.e., x-y) . 

The elements a represent single (or a 
range of) letter (s) whose presence as 
the initial letter of a variable 
specifies the variable to be of that 
type. 
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INCLUDE fin 


is an #lphaniw>eric literal 

. Includes the ' source stat< 
'the fi %£ spec-.fey, M I 


OPEN (p[,p]...) 5.9.6 


is one 

of the following forms: 

UNIT = 

e 



NAME = 

n 



TYPE = 

’OLD’ 



TYPE * 

■NEW’ 



TYPE = 

’SCRATCH ’ 



TYPE = 

’UNKNOWN’ 



ACCESS 

= ’SEQUENTIAL' 

> 

ACCESS 

= 'DIRECT' 



ACCESS 

= 'APPEND' 



READONLY 



FORM = 

'FORMATTED' 



FORM = 

'UNFORMATTED' 


RECORDSIZE = e 



ERR = s 




EUFFERCOUNT = e 
INITIALSIZ E = e 
EXTENDSIZE = e 
NCSPANBLOC KS 



SHARED 

DISPOSE 

= 'SAVE' 

or 

DISP = 'SAVE' 

DISPOSE 

= 'KEEP' 

or 

DISP = 'KEEP' 

DISPOSE 

= 'DELETE' 

or 

DISP = 'DELETE 

DISPOSE 

= 'PRINT' 

or 

DISP = 'PRINT' 

ASSOCTATEVARIABLE 

= V 


CARRIAGECONTROL = 

'FORTRAN' 

CARRIAGECONTROL = 

'LIST' 

CARRIAGECONTROL = 

'NONE' 

MAXREC 

= e 



BLOCKSIZE = e 




e is an integer expression, 
s is an executable statement label, 
v is an integer variable name. 

n is an array name, variable name, array element name, or 
alphanumeric literal. 

Opens a file on the specified logical 
unit according to the parameters 
specified by the keywords. 



P*c [ f p?cJ. 

'} v is a symbolic name, 
is a V 


PARAMETER 
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FORTRAN LANGUAGE SUMMARY 


PAUSE [disp] 
disp 


4.7 

is a decimal digit string containing one to five digits, 
an alphanumeric literal, or an octal constant. 

Suspends program execution and prints 
the display, if one is specified. 


PRINT 


PROGRAM nam 


nam 


See WRITE, Formatted Sequential 
See WRITE, List-Directed 


is a symbolic name. 

Specifies a name fqr the main program, 


READ (u,f[ , END=s] [ ,ERR = s]) [list] 

READ f [ ,1ist] 

ACCEPT f [ ,1ist] 

u is an integer variable or constant. 

f is a FORMAT statement label or an array name, 

s is an executable statement label. 

list is an I/O list. 

(Formatted Sequential) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list, 
converted according to format 

specification f. 


READ (uVr,f[,ERR«s] ) [list] 

u is an integer variable or constant. 


r 

f 

s. 

list 


& ! SHPtt; 

i lit 

•>J, ~ a \ i ".. 1% *±x /V* , 

% ';v i- AA-iiLi. 


5.4.5 

5.7.5 


7.9 


5.4.1 


5.6,1 I 


is an integer e 

is a FORMAT statement label or an array name, 
is an executable statement label, 
is an I/O list. 

’ «.' ”• « /J {’\i ,< - 4 mm- V 

(Formatted Direct Access) Reads record r from unit u 
and assigns values to the elements in the list. 
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FORTRAN LANGUAGE SUMMARY 


READ(u[,END= 

= s] [ ,ERR=s]) [list] „ 5.3.1 

U 

is an integer variable or constant. 

S 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Sequential) Reads one 

unformatted record from unit u, and 
assigns values to the elements in the 
list. 


READ(u'r[,ERR=s])[list] 4 5.5.1 


u 

is an integer variable or constant. 

r 

is an integer expression. 

s 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Direct Access) Reads record 
r from unit u, and assigns values to the 
elements in the list. 


READ (u,*[,END=s][,ERR=s])list 5.7.1 

READ *,1isc 
ACCEPT * , 1ist 


u 

is an integer variable or constant. 

★ 

denotes list-directed formatting. 

s 

is an executable statement label. 

list 

is an I/O list. 

(List-Directed) Reads one or more 
logical records from unit u and assigns 
values to the elements in the list, 
converted according to the data type of 
the list element. 
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FORTRAN LANGUAGE SUMMARY 


RETURN 



Returns control to the calling program 
from the current subprogram.^ 

REWIND u 

5.9.1 

u 

is an integer variable or constant. 

Repositions logical unit u to the 

beginning of the currently opened file. 


STOP [disp] 4.8 


disp 

is a decimal digit storing containing one to five digits, 
an alphanumeric literal, or an octal constant. 

Terminate program execution and print ' : 

the display, if one is specified. 


SUBROUTINE nam[([p[,p]...])] 8.2.3 


nam 

is a symbolic name. 

P 

is a symbolic name. 

Begins a SUBROUTINE subprogram, 
indicating the program name and any 
dummy argument names, p. 

TYPE 

See WRITE, Formatted Sequential 5.4.4 

See WRITE, List-Directed 5.7.4 


Type Declaration 7.2 

typ v [ ,v]... 


typ 

is a data type specifier. 

V 

is a variable name, array name, function or function 
entry name, or an array declarator. The name can 

optionally be followed by a data type length specifier 
(*n) . 

The symbolic names, v, are assigned the 
specified data type in the program unit. 

typ is one of: 

DOUBLE PRECISION 

COMPLEX 

C0MPLEX*8 

REAL 
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FORTRAN LANGUAGE SUMMARY 


VIRTUAL a(d) 
a (d) 

WRITE (u,f[, 
PRINT f[ ,lis 
TYPE f[ , 1is 
u 
f 
s 

list 


WRITE (u 1 r ,f 


U 

t 

f 



REAL* 4 
REAL*8 
INTEGER 
INTEGER* 2 
INTEGER* 4 
BYTE 
LOGICAL 
LOGICAL*1 
LOGICAL*4 



is an array declarator that specifies storaqe 
space for a VIRTUAL array. 

ERR=s])[list] 5.4. 2 

t] 

c] 

is an integer variable or constant. 

is a FORMAT statement label or an array name. 

is an executable statement label. 


is an I/O list. 

(Formatted Sequential) Writes one or 
more logical records to unit u 
containing the values of the elements in 
the list, converted according to format 
specification f. 



[,£RR*S])flistj 

is ap integer variable gr cQhgjy*B|.' ;•%' 

is-an integer ex-prtse&ott, | 

* 5 > , ’ . >•* - 

is a FORMAT ;€>r an art*; 

is an executable statement labelv 
is an W?M 




| tor mat ted Direct Access^ ffritatg im 
t to unit o containing the «ajuea of 

Oiemenfes.-'f'^jB ,*> ttoaviy- likjt.-:A 
acgor^ii^f ap]c 
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FORTRAN LANGUAGE SUMMARY 


WRITE (u(,ERR=s])[list] 5.3.2 


u 

is an integer variable or constant. 

s 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Sequential) Writes one 
unformatted record to unit u containing 
the values of the elements in the list. 


WRITE (u‘r[,ERR=s] ) [list] 5.5.2 


u 

is an integer variable or constant. 

r 

is an integer expression. 

> 

s 

is an executable statement label. 

list 

is an I/O list. 

(Unformatted Direct Access) Writes 
record r to unit u containing the values 
of the elements in the list. 


WRITE(u,*[,ERR = s] ) 1ist 5.7.2 

PRINT * , 1ist 
TYPE *,1ist 


u 

is an integer variable or constant. 

* 

denotes list-directed formatting. 

s 

is .an executable statement label. 

1 isc 

is an I/O list. 

(List-Directed) Writes one or more 
logical records to unit u containing the 
values of the elements in the list, 
converted according to the data type of 
the list element. 
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FORTRAN LANGUAGE SUMMARY 


Table R-l (Cont.) 
FORTRAN Library Functions 


FORM 

DEFINITION 

ARGUMENT 

TYPE 

RESULT 

TYPE 

SIGN(X,Y) 

The transfer of sign functions return 
(sign of the second argument) * (absolute 
value of first argument). 

Real transfer of sign 

Real 

Real 

ISIGN(I,J) 

Integer transfer of sign 

Integer 

Integer 

OSIGN(X,Y) 

Double precision transfer of sign 

Double 

Double 

DIM(X,Y) 

Positive difference functions return the 
first argument minus the minimum of the 
two arguments. 

Real positive difference 

Real 

Real 

IDIM(I,J) 

Integer positive difference* 

Integer 

Integer 

EXP (X) 

Exponential functions return the value 
of e raised to the argument power. 

X 

e 

x 

Real 

Real 

DEXP(X) 

e 

2 

Double 

Double 

CEXP(Z) 

e 

Complex 

Complex 

ALOG(X) 

Returns log (X) 

Real 

Real 

ALOG10(X) 

Returns log|0(X) 

Real 

Real 

DLOG(X) 

Returns log e (X) 

Double 

Double 

DLOG10(X) 

Returns log-^U) 

Double 

Double 

CLOG(Z) 

Returns log e of complex argument 

Complex 

Complex 

SQRT(X) 

Square root of Real argument 

Real 

Real 

DSQRT(X) 

Square root of Double precision argument 

Double 

Double 

CSQRT(Z) 

Square root of Complex argument 

Complex 

Complex 

SIN (X) 

Real sine 

Real 

Real 

DSIN(X) 

Double precision sine 

Double 

Double 

CSIN(Z) 

Complex sine 

Complex 

Complex 

COS(X) 

Real cosine 

Real 

Real 

DCOS(X) 

Double precision cosine 

Double 

Double 

CCOS(Z) 

Complex cosine 

Complex 

Complex 

TANH(X) 

Hyperbolic tangent 

Real 

Real 

AT AN (X) 

Real arc tangent 

Real 

Real 

DATAN(X) 

Double precision arc tangent 

Double 

Double 

ATAN2(X, Y) 

Real arc tangent of (X/Y) 

Real 

Real 

DATAN2(X,Y) 

Double precision arc tangent of (X/Y) 

Double 

Double 

CONJG(Z) 

Complex conjugate, if Z=X+i*Y 

CONJG (Z)=X-i*Y 

Complex 

Complex 

RAN(I,J) 

Returns a random number of uniform distri¬ 

Integer 

Real 


bution over the range 0 to 1. I and J must 
be integer variables and should be set ini¬ 
tially to 0. Resetting I and J to 0 re¬ 
generates the random number sequence. 
Alternate starting values for I and J will 
generate different random number sequences. 
See also Appendix C.3. 
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FORTRAN LANGUAGE SUMMARY 


Table B-l 

FORTRAN Library Functions 




ARGUMENT 

RESULT 

FORM 

DEFINITION 

TYPE 

TYPE 

ABS(X) 

Real absolute value 

Real 

Real 

IABS(I) 

Integer absolute value 

Integer 

Integer 

DABS(X) 

Double precision absolute value 

Double 

Double 

CABS(Z) 

Complex to Real, absolute value 




where Z*(x,y) 




CABS(Z)=(x 2 +y 2 )1/2 

Complex 

Real 

FLOAT(I) 

Integer to Real conversion 

Integer 

Real 

IFIX(X) 

Real to Integer conversion 




IFIX(X) is equivalent to INT(X) 

Real 

Integer 

SNGL(X) 

Double to Real conversion 

Double 

Real 

DBLE(X) 

Real to Double conversion ' 

Real 

Double 

REAL (Z) 

Complex to Real conversion, 




obtain real part 

Complex 

Real 

AIMAG(Z) 

Complex to Real conversion, 




obtain imaginary part 

Complex 

Real 

CMPLX(X,Y) 

Real to Complex conversion 




CMPLX(X,Y)=X+i*Y 

Real 

Complex 


Truncation functions return the sign of 




the argument * largest integer < |arg| 



AINT(X) 

Real to Real truncation 

Real 

Real 

INT(X) 

Real to Integer truncation 

Real 

Integer 

IDINT(X) 

Double to Integer truncation 

Double 

Integer 


Remainder functions return the remainder 




when the first argument is divided by 




the second. 



AMOD(X,Y) 

Real remainder 

Real 

Real 

MOD(I, J) 

Integer remainder 

Integer 

Integer 

DMOD(X,Y) 

Double precision remainder 

Double 

Double 


Maximum value functions return the 




largest value from among the argument 




list; > 2 arguments. 



AMAX0(I,J,...) 

Real maximum from Integer list 

Integer 

Real 

AMAXl(X,Y,...) 

Real maximum from Real list 

Real 

Real 

MAX0(I,J,...) 

Integer maximum from Integer list 

Integer 

Integer 

MAXI(X,Y,...) 

Integer maximum from Real list 

Real 

Integer 

DMAX1(X,Y,...) 

Double maximum from Double list 

Double 

Double 


Minimum value functions return the small¬ 




est value from among the argument list; 




> 2 arguments. 



AMIN0(I,J,...) 

Real minimum of Integer list 

Integer 

Real 

AMIN1(X,Y,. . . ) 

Real minimum of Real list 

Real 

Real 

MIN0 (I,J,...) 

Integer minimum of Integer list 

Integer 

Integer 

MINI(X,Y,...) 

Integer minimum of Real list 

Real 

Integer 

DMIN1(X,Y,...) 

Double minimum of Double list 

Double 

Double 
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B * 3 feSftWjft 


Table B t 3! 

Jl- ,-. IV-PLO? 


if **# * w»»* 










+mw 




SDLGIR 


$SIN 

$DSXS 

5CSXN 








$TAN 

$DTAN 






Arc Si# a 


asin m. 

DAEXN 


SAS1N 

SDASIN 


JlifMStol*; 


—TT^ 


i -f~ 


SATAN 


SDATAN 




$A*AN2 

SDATN2 


Double 


8ATAN2 




Rdal 

Double 


Double 


PCCSM 


TV;^> ' fi i .wiM»(nj| i r 'i i >11 < i » ■ . j y 


p||* 


Real •' 

Double 


Reel 6INH 

Double ; DSINH 


SSXNH 
$DSINH 


■I fypwbouc 


$TANH 

$DTANH 


Double 


























































































FORTRAN LANGUAGE SUMMARY 



' r" Table B-2 (Cent 
FORTRAN IV-PLU! 
Generic and Proceeeor-Defii 


" 


<y.~ViK v. 


Number ot 
Kxqvpiwtm 




idiot* ;» 


Double 

Double 


L+.5*Mgn<s)l 












. 
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FORTRAN LANGUAGE SUMMARY 

Table B-2 (Cont.) 
V-Vh'.-; ' FORTRAN-*IV 


Generic and Pr6cessor-Def 


Function 


Definition 


fzm- r ,**? « t ’Arst'j 

a:::. : 






'Je^giaasy 

: PflUfti of " ' 
Complex 

»-”T—W* 


!p¥.fi 


' &$**>*[ 


,.L/ /K 


. ox** V 


■ *4 - 


'/Saroiloct of 

; «v i 








$IMOD r ' ; ^ 
$JMOD ; .S 

2‘; 


of Sign 

ite 
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FORTRAN LANGUAGE SUMMARY 



Table B-2 (Cont.) 
FORTRAN IV-P M>$& 


Generic and Processor-Defined Functions 




wlpl 


Generic 

•iSm: ' 


Definition 


Numberof 

Argujnefte 


Function 




Bitwise 

AND 




Bitwise 

Inclusive 

OR 


■'TTTT'' 

'£idmim I 


Bitwise 

Exclusive 

0R ; Vf§|p:;,- 


Bitwise 

Complement 


-- 


logically 
shifted-left 


Bitwise 

Shift 
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FORTRAN LANGUAGE SUMMARY 



• '• ■ ',!■ Note# for Tab^e »*& '*• '• . .,, • * 

l*| i* defined as the largest integer whose.magnitude does sot exceed the 
magnitude of x and whose sign; is the same as that of x. i >; \-'l 

• , 

The remaindering functions of a 2 > are defined as a, - ta./a-la,, where 
txl is defined ^■, if ).$$$&& *< /v<v 

. 

Function® that cause conversion of an entity fromone type to another tfp* 
provide the same effect as the implied conversion in assignment statements. 
The functions .real moment, aad bpU with a doublfc precisio#|: 

argument, return the value of the argument »«p^f«»nver^i^^|^p^^ 

A complex value is stressed a® an ordered paif of reals <«, ai), where ar 
is the real W rt and ^' hhe^indly 

The argument of ALOG, DLOG, ALOGIO, and DL0G10 must toe greater than zero. 
The argument of CLOG must not be to.,0.). 

The argument of SIN, DSIN, COS, DCOS, TAN, and UTAH must be ip radians, 
■mess functions use the argument modulo 2 pi. 

The argument of SQRT and DSQRT must be greater than or equal to zero. 

The absolute value of the argument of ASIN, DASIN, ACQS, and PACOS must be 
less than or equal to one. 

”, * ; - \ , ■ *'■ : . . ‘ ' • : " 4 ^ ’ 4 : 

The result of ASIN, DASIN, ACOS, DACOS, ATAN, DATAN, ATAN2, and DATAN2 is 
in radians, *'? V'"' s' 


The result of ATAN2 and DATAN2 is zero or positive for a ? <0 and negative for 
•j<0. The result is undefined if both arguments are zero. 

The result of CSQRT is the principal value with the real part greater than 
or equal to zero. When the real part is zero, the imaginary part is greater 
than or equal to zero. 

The principal value is used for the results of complex functions. 
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APPENDIX C 


FORTRAN PROGRAMMING EXAMPLES 


fnf^nH X ^ mP J eS k £ F0RTR ^ programs are given below. These examples are 
intended to show possible methods of handling input/output, iterative 

the th f G F ° R ^ AN functions, and subprogram' usage In 

n^rn fc f pro ^ le " ls likely to face a FORTRAN programmer. These 

i ar t pt °^ anis should not be considered as the correct or optimal 

n£c=?h? h - t0 fc !? e specifled Problems since many other methods are 
possible m each case. 

The program in example one performs linear regression on a set of X.Y 
coordinates. The program uses standard formulae to calculate the 
slope and intercept of the line which best fits the data points 
entered. The program listing and a sample run follow: 

EXAMPLE 1 LISTING: 


TYPE 10 
5 TYPE 20 

ACCEPT 30»N 

ZF <N «LE* 0) STOP 

TYPE 40*N 

8XGMXY - 0 

81GHX « 0 

8XGHY - 0 

8XGHXX - 0 

DO 100* J-1»N 

ACCEPT S0»X*Y 
8XGHXY - 8XGHXY 4 X*Y 
8XGHX - 8IGHX 4 X 
8I0HV ■ 8XGHY + Y 
8IGMXX - 8XQHXX + X»X 

100 CONTINUE 

A ■ (8XGHXY-8XGNX88XGHY/N) / <8IGMXX-3XGHX«8XGMX/N> 
8 • (8IGMY-A48IGMX>/N 
TYPE 60*ArB 
GO TO 9 


FORMAT 8TATEMENT8 
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FORTRAN PROGRAMMING EXAMPLES 


FORMAT <//' THIS PROGRAM PERF0RM8 LINEAR REGRESSION'/ 

J T ? E LINE WHICH BEST FITS A 8ET OF XfY PAIR8 IS CALCULATED. 

FORMAT <I2) TVPE ™ ™ E NUMBER 0F *' Y PAIRS! '•) 

FORMAT (' TYPE IN 'fI2f' LINES OF XfY PAIR8.'/> 

FORMAT (2F8.3) 

POPMAT </' THE BEST FIT IS Y-'fF8.3f' X-'fF8.3> 

END 












FORTRAN PROGRAMMING EXAMPLES 


EXAMPLE 1 SAMPLE RUN: 

MCR>RIJN EXMPL14 


THIS PROGRAM PERFORMS LINEAR REGRESSION 

THE LINE WHICH BEST FITS A SET OF XrY PAIRS IS CALCULATED. 

TYPE IN THE NUMBER OF XrY PAIRS? 17 
TYPE IN 17 LINES OF XrY PAIRS. 


1.1 

4.7 

2.2 

9.4 

4.1 

9.9 

5.3 

14.4 

4.7 

23.1 

8.0 

29.9 

10.1 

37.1 

11.5 

41.3 

13.4 

54.7 

15.8 

59.2 

17.9 

44.7 

19.5 

71.2 

22.3 

79.8 

23.1 

81.4 

25.3 

88.8 

24.9 

91.9 

27.3 

95.4 


THE BEST FIT IS Y* 3.537 X« 0.340 

TYPE IN THE NUMBER OF XrY PAIRS? <5 
TYPE IN 6 LINES OF XrY PAIRS. 

0.41 -4.3 

0.99 -7.2 

0.31 -3.4 

0.02 - 0.7 

0.74 -5.9 

0.43 -4.4 


THE BEST FIT IS Y* -4.304 X« -1.282 

TYPE IN THE NUMBER OF XrY PAIRS? 0 
EXMPL1 — STOP 


The program in example two manipulates data representing test scores 
The scores are read from the source file, placed in descending order 
and sent to an output file. Then the absolute total and histogram o 
the test scores in each 10-point interval are output on the terminal 
The program listing and a sample run follow: 


C-3 
















?• j n n o 


FORTRAN PROGRAMMING EXAMPLES 


EXAMPLE 2 LISTING: 


LQGICAL*1 STARS(80) 

INTEGER ARRAY(200)*HIST(10) 

DATA STARS /80*'*'/ 

DATA HIST / 10*0/ 

DO i.00* 1 = 1 *200 

READ(1*20*END=105) ARRAY<I) 

100 CONTINUE 

105 ISIZE = I~1 

DO 120 * J=1*ISIZE-1 

DO 110, K=J+1*ISIZE 

IF<ARRAY<J).GE.ARRAY<K)> GO TO 110 
ITMR = ARRAY(J) 

ARRAY(J) = ARRAY(K) 

ARRAY<K) = ITMP 
110 CONTINUE 

120 CONTINUE 

DO 125* K=1*ISIZE 

WRITE(2*20) ARRAY(K) * 

125 CONTINUE 

DO 130* K=l,ISIZE 

N = <MINO(ARRAY(K)* 99) - 1> / 10 + 1 
HIST <N) = HIST(N) + 1 
130 CONTINUE 

TYPE 35 

DO 150* K=10*100*10 

TYPE 40, HIST(K/10)* K-9, K 
IF(HIST(K/10) .EG. 0) GO TO 150 
TYPE 45* (STARS(M)* M=1* HIST(K/10)) 

150 CONTINUE 

TYPE 50* ISIZE 
STOP 

FORMAT STATEMENTS 
0 FORMAT(13) 

35 FORMAT(//IX*'The number of test scores and a histogram'/ 

1 ' in each 10 point interval follows?'/> 

40 F0RMAT(/1X*13*' in the range •SIS*'’ to '*i3*$) 

45 FORMAT(1H+,2X * 80A1) 

50 FORMAT(//' The total number of test scores = '*13) 

END 


C-4 


June 1977 
















FORTRAN PROGRAMMING EXAMPLES 


EXAMPLE 2 SAMPLE RUN: 

MCR>RUN EXMF‘L2$ 


The number of test scores and a histogram 
in each 10 point interval follows* 


1 

in 

the 

rsnsfe 

1 

to 

10 

* 

2 

in 

the 

range 

11 

to 

20 

** 

2 

in 

the 

range 

21 

to 

30 

** 

10 

in 

the 

range 

31 

to 

40 

********** 

13 

in 

the 

range 

41 

to 

50 

************* 

11 

in 

the 

range 

51 

to 

60 

*********** 

> 

19 

in 

the 

range 

61 

to 

70 

******************* 

35 

in 

the 

range 

71 

to 

80 

*********************************** 

40 

in 

the 

range 

81 

to 

90 

**************************************** 

17 

in 

the 

range 

91 

to 

100 

***************** 


The total number of test scores 32 150 


Example three shows a method of calculating the prime factors of an 
integer. A simple table look-up method was used to determine the 
necessary primes. Note the unusual use of FORTRAN carriage control to 
facilitate the prime factor output. MOD is a Library function and is 
described in Appendix B. The program listing and a sample run 
follow: 

EXAMPLE 3 LISTING: 

INTEGER PrHOLD 
TYPE 50 

80 TYPE 100 

ACCEPT 105.NUMBER 
IF (NUMBER .LE. 0) STOP 

TYPE 110 

ISORT - SORT(FLOAT(NUMBER)) 

P - 1 
IFLAG * 0 
HOLD <* NUMBER 
IF (HOLD .LE. 3) GO TO 240 
200 P » NPRIME(P) 

205 IREM * MOD(HOLD.P) 

IF (IREM ,EQ. 0) GO TO 400 
IF (P .LE. ISQRT) GO TO 200 
IF (IFLAG .NE. 0) GO TO 300 
240 TYPE 250.NUMBER 

GO TO 80 


C-5 


June 1977 

















FORTRAN PROGRAMMING EXAMPLES 


300 IF (HOLD .GT. 1) TYPE 350.H0LD 

GO TO 80 

400 IFLAG » 1 

HOLD « HOLD/P 

IF (HOLD ,EQ. 1) GO TO 500 
TYPE 450 »P 
GO TO 205 

500 TYPE 350 rP 

GO TO 80 
C 

C FORMAT STATEMENTS 

C 

50 FORMAT (//lXt'THIS IS A PROGRAM TO FIND THE PRIME FACTORS OF' 

1 ' AN INTEGER < 32767.'/' ENTERING A NEGATIVE OR ZERO'r 

2 ' NUMBER TERMINATES EXECUTION.'/) 

100 FORMAT (//' ENTER » '»*) 

105 FORMAT (15) 

110 FORMAT (/) 

250 FORMAT (1H+»I5»' IS A PRIME NUMBER') 

350 FORMAT UH+rI5»*) 

450 FORMAT (1H+.I5»'*' t%) 

END 


FUNCTION NPRIME(OLD) 

DIMENSION MPRIME(46) 

INTEGER OLD 

DATA MPRIME/2»3i>5»7r11.13.17.19.23.29.31.37.41.43.47. 

1 53.59.61 .67.71►73.79.83» B9i97 r 101 r 103 r 107 i>109i>113> 

2 127fl31»137»139fl49rl51fl57fl63fl67fl73.179»181f 

3 191»193»197 r199/ 

IF (OLD .EQ. 1) N - 0 
N * N + 1 

NPRIME « MPRIME(N) 

RETURN 

END 


EXAMPLE 3 SAMPLE RUN: 

MCR>RUN EXMPL3* 

THIS IS A PROGRAM TO FIND THE PRIME FACTORS OF AN INTEGER < 32767. 
ENTERING A NEGATIVE OR ZERO NUMBER TERMINATES EXECUTION. 


ENTER # 3983 

7* 569 

ENTER * 32761 

181* 181 

ENTER * 32749 

32749 IS A PRIME NUMBER 













FORTRAN PROGRAMMING EXAMPLES 


ENTER • 8192 

2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 * 2 $ 


ENTER • 32731 

3* 3* 3* 1213 


ENTER • 32767 

7* 31* 131 


ENTER * 4099 

4099 18 A PRIME NUMBER 

ENTER • 0 

EXMPL3 — STOP 


Example four demonstrates a simple way to generate random numbers in a 
given range using the FORTRAN Library function RAN. A program listing 
and sample run follow: 

EXAMPLE 4 LISTING: 


REAL MAX»MIN 
TYPE 10 
TYPE 20 
ACCEPT 30»J 
TYPE 40 

ACCEPT 60» MIN 
TYPE 30 

ACCEPT 60* MAX 
L - 0 
M - 0 

DO 100* K-1'J 

X - RAN(L'M) * (MAX-MIN) + MIN 
TYPE 60' X 
WRITE (2'60) X 

100 CONTINUE 

STOP 
C 

C FORMAT STATEMENTS 

C 

10 FORMAT(//1X»'THI8 IS A PROGRAM TO GENERATE A FILE 0F'» 

1 ' RANDOM #"S IN A GIVEN RANGE.'/) 

20 FORMAT(IX''ENTER THE NUMBER OF RANDOM #"8 TO GENERATES''*) 

30 FORMAT(13) 

40 FORMAT(IX''ENTER THE MINIMUM VALUES''*) 

50 FORMAT(IX''ENTER THE MAXIMUM VALUES''*) 

60 FORMAT(F10.4) 

END 


2 * 2 
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EXAMPLE 4 SAMPLE RUN: 

MCR>RUN EXMPL4* 


THI* 18 A PROGRAM TO GENERATE A FILE OF RANDOM *'5 IN A GIVEN RANGE. 

ENTER THE NUMBER OF RANDOM TO GENERATE*40 

ENTER THE MINIMUM VALUEI-3.0 

ENTER THE MAXIMUM VALUE t 5.0 
-4.8449 
-4.9384 
-3*4130 
-0.8307 
-2.4473 
2.4721 
-1.7412 
-4.4141 
-1.8499 
0.4490 
-0.9724 
2*3432 
-0.7874 
4.1841 
2.2044 
-4.4474 
3.4744 
0.8739 
3.9721 
-4.0324 
0.0999 
-3.3713 
-0.7312 
-4.0498 
2*3043 
0.2498 
0.7423 
2.2040 
*3.4493 
-0.9294 
-2.1444 
1.8404 
0.4444 
-3.9979 
2.0797 
-1.9288 
-0.2938 
-4.1438 
-2.4987 
1.2823 

EXMPL4 — STOP 
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APPENDIX D 


VIRTUAL ARRAYS 


D.1 INTRODUCTION TO VIRTUAL ARRAYS 

User programs executing on a PDP-11 family computer can directly 
address at most 65,536 bytes (64K bytes) of main memory at any 
instant. This main memory can contain a mixture of FORTRAN compiled 
code, variables and arrays, and external procedures. Program overlays 
permit larger programs to be executed in the directly—addressable main 
memory. Virtual arrays provide another mechanism for processing large 
arrays that would otherwise exceed the 64K byte limit on 
directly-addressable memory. 

A virtual array is an array whose storage is allocated in physical 
main memory outside of the program’s directly-addressable main memory. 
The use of virtual arrays in a program frees directly-addressable 
memory for executable code and other data storage. 


NOTE 


Virtual arrays are not supported in all 
PDP-11 FORTRAN implementations. Virtual 
arrays are available in Version 2 of the 
FORTRAN IV compiler for the RSX-llM and 
RT-11 operating systems. 


D.2 VIRTUAL STATEMENT 

The VIRTUAL statement defines the number of dimensions in a virtual 
array and the number of elements in each dimension. The VIRTUAL 
statement is similar in form and usage to the DIMENSION statement 
(Section 7.3). 

The VIRTUAL statement has the form: 

VIRTUAL a(d) I, a (d)J .. . 
a is the symbolic name of an array, 
d is a dimension declarator. 


Each a(d) is an array declarator as described in Section 2.6.1. 


The VIRTUAL statement allocates 
locations to each array named 
information concerning arrays and 
Section 2.6. 


a number of (virtual) storage 
in the statement. For further 
the storage of array elements, see 


The data type of a virtual array is specified in the same way as the 
data type of a variable or an array; that is, implicitly by the 
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VIRTUAL ARRAYS 


initial letter of the name, or explicitly by a type declaration 
statement. 

The name of a virtual array can appear in a type declaration 
statement; however, in each program unit, an array name can appear in 
only one array declarator. The name of a virtual array cannot appear 
in a COMMON statement, EQUIVALENCE statement, or DATA statement. 

VIRTUAL statements must not be labeled. 

Examples 

VIRTUAL A(100), B(100,100) 

VIRTUAL C(4,4,4,4,4) 


D.3 SIZE OF VIRTUAL ARRAYS 

The VIRTUAL statement allocates a number of storage locations for each 
element in each dimension of the array. Each storage location is one, 
two, four or eight bytes in length, as determined by the data type of 
the array. The total number of elements in the array is equal to the 
product of all dimension declarators in the array declarator. 

A VIRTUAL array can have a maximum of 32767 elements; each element 
requires from one to eight bytes of storage. Thus a maximum size 
LOGICAL*l virtual array requires 32767 bytes of physical main memory; 
a maximum size REAL*8 virtual array requires 262,136 bytes of physical 
main memory. 

The declaration of a virtual array does not significantly reduce 
directly-addressable memory available to the program. VIRTUAL arrays 
are constrained, however, by the total amount of physical main memory 
available in the system. If adequate memory is not available to 
contain all virtual arrays declared in a program, the program cannot 
be executed. Refer to the appropriate FORTRAN User's Guide for 
additional information on size constraints. 


D.4 RESTRICTIONS ON VIRTUAL ARRAY USAGE 

The names of virtual arrays and virtual array elements must not be 
used in some contexts; 

1. A virtual array name must not be used in a COMMON statement 
(Section 7.4). 

2. The name of a virtual array or virtual array element must not 
be used in an EQUIVALENCE statement (Section 7.5). 

3. A virtual array or virtual array element cannot be assigned 
an initial value by a DATA statement (Section 7.7). 

4. Virtual arrays cannot be used to contain object time format 
specifications (Section 6.6). The name of a virtual array or 
virtual array element must not appear as a format specifier 
in a READ, WRITE, PRINT, TYPE, ACCEPT, ENCODE or DECODE 
statement. 

5. The name of a virtual array or virtual array element must not 
be specified as the buffer argument (third argument inside 
parentheses) of an ENCODE or DECODE statement (Section 5.10). 
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6. The name of a virtual array element must not be used as an 
actual argument to a subprogram if the subprogram assigns a 
value to the corresponding dummy argument. 

Examples 

Valid Usage 

VIRTUAL A(1000), B(2000) 

READ(1,*) A 
DO 10,1=1,1000 
10 B(I)=-A(I)*2 

WRITE(2,*) (A(I),1=1,1000) 

CALL ABC(A,B) 


Invalid Usage 

DIMENSION B(10) 

VIRTUAL A(10) 

DATA A(1)/2.5/ 

COMMON /X/ A 
EQUIVALENCE (B,A) 
EQUIVALENCE (A(1),X) 
WRITE(1,A) (B(I),1=1,10) 
ENCODE(4,100,A(3)) X,Y 


(Used in DATA statement) 

(Used in COMMON statement) 

(Used in EQUIVALENCE statement) 
(Used in EQUIVALENCE statement) 
(Used as format specifier) 

(Used as ENCODE output buffer) 


D.5 VIRTUAL ARRAY REFERENCES IN SUBPROGRAMS 

Actual and dummy arguments become associated at the time control is 
tranferred to a subprogram (Section 8.1). Actual and dummy arguments 
that become associated must agree in data type. A dummy argument 
declared as a non-virtual array can only become associated with an 
actual argument that is a non-virtual array or array element. A dummy 
argument declared as a virtual array can only become associated with 
an actual argument that is also the name of a virtual array. 


An actual argument which is a reference to a virtual array element can 
only become associated with a dummy argument which is declared as a 
simple variable (Section 2.2). In effect, an actual argument that is 
a virtual array element is treated as an expression. A value must 
have been assigned to the element before it is used as an actual 
argument. The subprogram must not alter the value of the 
corresponding dummy argument. Note that neither of these restrictions 
applies to the use of a non-virtual array element as an actual 
argument. 
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Examples 

Valid Usage 

VIRTUAL A(1000),B(1000) 

WRITE(5 , *) SCALE(A,1000,B(3)) 
END 


REAL FUNCTION SCALE (X,N,W) 
VIRTUAL X(N) 

s=o. 

DO 10, 1=1,N 
10 S=S+X(I)*W 
SCALE=S 
END 

Invalid Usage 

VIRTUAL A(1000) 

REAL B(4000) 

CALL ABC(A, B, A(3)) 

END 

SUBROUTINE ABC(X,Y,Z) 

REAL X(1000) 

VIRTUAL Y(4000) 

Z=2.3 

END 


(Invalid; actual argument is virtual) 
(Invalid; actual argument is 
non-virtual) 

(Invalid; actual argument is virtual 
array element) 
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A 

A field descriptor , 6-8/ 6-9 
A format/ 6-15 
Absolute value of integer 
constant/ 2-4 

ACCEPT statement/ B-2, B-10/ 
B-ll 

formatted/ 5-9 
list-directed, 5-17 
Acceptable input constants/ 

5- 15 

ACCESS keyword/ 5-23/ 5-24 
Access, shared, 5-26 
Actual arguments/ 2-11, 8-1/ 
8-2/ 8-7 

Actual arguments/ associating 
dummy and, 8-1 
Actual record length/ 5-25 
Addition/ 2-17 
Adjustable array declarator, 
2-15 

Adjustable arrays, 2-15, 8-7 
Alignment, word boundary, 7-8 
All-blank field, 6-2, 6-4 
Allocation, 
default, 2-4 
4-byte, 2-4 

Allocating storage locations, 
7-3 

All-zero statement label, 1-6 
Alphanumeric data, trans¬ 
mission of, 6-8 
Alphanumeric literal field 
descriptor, 6-20 
Alphanumeric literals, 1-1, 
2-3, 2-8, 2-9, 5-7, 5-16, 

6 - 10 

Altering format specifications 
during program execution, 

6-18 

American National Standard 
FORTRAN X3.9-1966, 1-1 
.AND., 2-22 
Angle brackets, 6-14 
Apostrophe character, 2-8, 
5-16, 6-10 

Appended spaces, 2-9 
Area, 1-byte storage, 2-4 
Arguments, 

actual, 2-11, 8-1, 8-7 
associating dummy and 
actual, 8-1 
defined, 2-11 


Arguments, (cont.) 

dummy, 2-11, 4-10, 8-1, 8-7 
function references used as, 

7-9 

in an ENTRY statement, 
dummy, 8-6 
integer dummy, 2-16 
in the CALL statement, 4-10 
list, 4-10 
subprogram, 8-1 
actual, 8-1 
dummy, 8-1 
values, dummy, 2-15 
5 Arithmetic 

assignment statement, 3-1 
elements, 2-16, 2-17 
expression, 2-16, 2-20, 8-2 
expression, data type of an, 
2-19 

IF statement, 4-4 
operators, 2-16, 2-17, B-l 
statement functions (ASF), 
2-2, 8-2, B-2 

Arithmetic/logical assignment, 
B-2 

Array, data type of an, 2-14 
Array declarator, 2-12, 7-3, 
7-5, 7-11 
adjustable, 2-15 
interaction, ENTRY and, 8-7 
Array elements, 2-1, 2-11 

assigning values to variables 
and, 7-10 
filling, 7-10 
storage, L0GICAL*1, 2-14 
transmitting, 5-4 
Array format specifications, 
constructing, 6-20 
Array name, 2-12, 2-13, 7-5 
unsubscripted, 2-15, 4-10, 
7-10 

Array reference, 5-4 
Array reference, subscripted, 
2-13 

Array references without sub¬ 
scripts, 2-14 
Array size, dummy, 2-15 
Array storage, 2-13, 2-14, 
equivalence, 7-7 
Array, unsubscripted, 5-3 
Arrays, 2-1, 2-2, 2-11, 2-12, 
5-2, 6-18 

1- dimensional, 2-12 

2- dimensional, 2-12 

3- dimensional, 2-12 
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Array, 

adjustable, 2-15, 8-7 
defining, 7-2 

defining dimensions in, 7-3 
making equivalent, 7-6 
packing, 5-3 

processing multidimensional, 
5-5 

with non-unity lower bounds, 
equivalencing, 7-7 
ASCII 

characters, 2-8, 6-20 
character set, A-2 
null character, 5-24 
octal equivalents of Radix-50 
characters, A-3 

ASF (Arithmetic Statement Func¬ 
tion) , 8-2 

dummy arguments in, 8-2 
reference, 8-2 

ASSIGN statement, 3-4, 4-3, B-2 
Assigned GO TO statement, 4-3 
Assigning, 

data types, 7-2 
initial values in common 
blocks, 8-8 
LOGICAL*l elements to 
COMMON, 7-4 

storage locations, 7-6 
values, 3-2 

values to list elements, 5-3 
values to variables and 
array elements, 7-10 
Assignment, 

arithmetic/logical, B-2 
Assignment operator, 2-9 
Assignment statements, 3-1 
arithmetic, 3-1 
conversion rules for, 3-2 
logical, 3-3 

Associated variables, 2-10, 5-21 
ASSOCIATEVARIABLE keyword, 

5- 23, 5-27 

Associating dummy and actual 
arguments, 8-1 
Asterisk (*), 1-8, 5-3, 6-3, 

6- 4, 7-9 

Attribute specifications, 5-22 
Auxiliary I/O statement, 5-2 


B 

BACKSPACE statement, 5-20, B-3 
Backspacing over list-directed 
records, 5-14 


Base elements, 2-18 

Basic component, 2-16 

Basic real constant, 2-5, 2-6 

Beginning of a record, 5-15 

Binary data, 5-1 

Binary operator, 2-9, 2-17 

Blank, 

see Space or Space character 
Blank COMMON, 7-5 
Blank common block, 7-4 
Block, blank common, 7-4 
boundaries, crossing disk, 
5-26 

common, 2-2 

see also common blocks 
data subprograms, 2-2 
name, common, 7-4 
size, physical, 5-28 
BLOCK DATA statement, 8-4, B-3 
BLOCK DATA subprogram, 8-8 
statements allowed in, 8-8 
specification statements in, 
8-8 

BLOCKSIZE keyword, 5-23, 5-28 
Blocks of storage, 7-4 
Bound, 

dimensions, 2-15 
lower, 2-12 
upper, 2-15 

Boundary alignment, word, 7-8 
Boundary, even, 7-4 
Boundary, word, 7-4 
Brackets, angle, 6-14 
left, 1-4 
right, 1-4 

BUFFERCOUNT keyword, 5-23, 5-26 

Bypassing input records, 6-16 

Byte, 2-3 

Byte strings, 2-8 

Byte, zero, 5-24 


c 

C (letter), 1-3, 1-6 
Calculations, iterative, C-l 
CALL statement, 4-9, 4-10, 7-9, 
8-1, 8-4, B-3 

CALL statement, argument in the, 
4-10 

Calling program unit, 4-10 
Carriage control, 6-21 
Carriage control character, 

6-11 

Carriage control characters, 

6-16 

table, 6-16 
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Carriage control processinq, 
5-27 

CARRIAGECONTROL keyword, 5-23 
5-27 
Case, 

lower, x 
upper, x 
Character, 

apostrophe, 2-8 
carriage control, 6-11, 6-16 
colon (:), 6-11 
count, 2-8, 2-10 
dollar sign ($), 6-11 
first of output record, 6-21 
first record, 6-16 
form, 5-1 
position 72, 1-7 
position of the external 
record, 6-10 
printable, 1-4 
Radix-50, 2-10 
space, ix, 1-6, 2-10 
special, 1-4 
tab, ix, 1-6 
Character set, 

ASCII, A-2 
FORTRAN, 1-3, A-l 
Radix-50, A-3 
Characters, 

maximum number stored in 
variable, 6-8 
non-printing, ix 
remaining input, 6-11 
Classes of symbolic names, 2-2 
CLOSE statement, 5-28, B-3 
Code values, Radix-50, 2-10 
Coding form, FORTRAN, 1-5 
Coding forms, using FORTRAN, 

1-5 

Colon (:) character, 6-11 
Colon (:) descriptor, 6-11 
Column 

number, 2-12 
one, 1-6 

one through five, 1-6 
six, 1-7 
seven, 1-7 

seven through 72, 1-7 
seventy-two, 1-7 
Commas, 5-15, 6-16 

as a null field designator, 
6-21 

consecutive, 5-14 
successive, 6-18 
Comment, 1-6 
line, 1-7, 1-9 
indicator, 1-6 


Comments, 1-3 
COMMON, 

assigning LOGICAL*1 elements 
to, 7-4 
blank, 7-5 

block, 2-2, 2-16, 7-4 
blank, 7-4 
extending, 7-8 
name, 7-4 

blocks, assigning initial 
values in, 8-8 
interaction, EQUIVALENCE 
and, 7-8 
named, 7-5 

referencing data in, 7-5 
statements, 2-11, 7-4, 7-5 
B-3 

Complex, 2-2, 2-3, 2-19 
constant, 2-7, 5-14 
data editing, 6-12 
expressions, 2-21 
number, 2-7 
operations, 2-20 
value, 6-12 
Complex*8, 2-3 

Components, FORTRAN statement, 
2-1 

Computed GO TO statement, 4-2 
Computing procedure, 1-3, 8-2 
Condition, 

end-of-file, 5-2 
error, 5-2 
Conditional 

control transfers, 4-4 
statement execution, 4-4 
Consecutive commas, 5-14 
Consecutive slashes, 6-16 
Conserving file storage space, 
5-6 

Constant, 2-4, 5-14 

absolute value of an integer, 
2-4 

complex, 2-7, 5-14 
double precision, 2-6 
Hollerith, 2-8 
input, 5-14 

integer, 2-4, 2-5, 2-7 
logical, 2-8, 5-14 
magnitude of a real, 2-6 
negative double precision, 

2-6 

negative integer, 2-4 
octal, 2-7 

positive integer, 2-4 
Radix-50, 2-9, 2-10 
real, 2-5 
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Constant, (Cont.) 
truncated, 2-9 
values, 7-10 
Constants, 2-1, 7-10 
acceptable input, 5-15 
data types of symbolic 
names as, 7-11 
giving symbolic names to, 
7-11 

integer, 2-16 
parameter, 2-2 
octal, 2-19 
repetition of, 5-14 
Constructing array format 
specifications, 6-20 
Contiguous storage areas, 7-4 
Contiguous storage locations, 
2-11 

Continuation 
field, 1-7 
indicator, 1-7 
lines, 1-3, 1-9 
CONTINUE statement, 4-9, B-4 
Control 

character, carriage, 6-11, 
6-16 

DO iteration, 4-6 
format 

see format control 
interaction with I/O lists, 
format, 6-18 
statements, 4-1 
transferring, 4-1 
transfers, 4-9, 8-1 
conditional, 4-4 
in DO loops, 4-8 
variable, 4-5, 4-6, 5-4 
Conventions, documentation, ix 
Conversion, 
data, 6-1 

double precision, 2-20 
rules for assignment state¬ 
ments, 3-2 

Converting data to internal 
format, 5-7 

Count, character, 2-10 
group repeat, 6-14 
Hollerith, 6-14 
iteration, 4-6 
repeat, 6-1, 6-14 
Creating a source program, 1-5 
Crossing disk block boundaries, 
5-26 


D 


D exponent field indicator, 6-5 
D field descriptor, 6-6 
D, (letter), 1-6, 2-6 
D specification, overriding, 6-21 
Data, 5-12 


alphanumeric, 
6-8 


transmission of. 


conversion, 6-1, 6-2, 6-4 
editing complex, 6-12 
field format, 6-1 
fields, undersized input, 1-2 
integer, 2-11 
logical, 2-17 

magnitude, effect on G format 
conversions, 6-7 
referencing in COMMON, 7-4 
rounding numeric, 5-9 
statement, 2-9, 2-11, 7-10, B-4 
transfer, 5-2, 5-8, 5-29 
translation of, 6-2 
transmission, 5-3, 6-2 
transmission of, 6-8 
Data type, 2-2, 2-8, 2-10, 2-11, 
2-19, 5-2, 6-8, 6-15, 8-1 
by implication, 2-11 
INTEGER*2, 2-5 
INTEGER*4, 2-5 


length specifier 
of an arithmetic 
2-19 


, 2-3 

expression. 


uit 




rank, 2-19 
specification, 2-11 
storage requirements, 2-3 
Data types, 

assigning, 7-2 
default, 7-2 
defining, 7-2 
of symbolic names, 7-2 
of symbolic names as constants, 
7-11 


of the list element, 5-15 
overriding, 7-2 
overriding implied, 7-1 
Debug statement indicator, 1-6 
Debugging statements, 1-2 
Decimal point, 2-4, 6-12, 6-20 
moving, 6-12, 6-13 
Declaration, explicit type, 2-11 
Declaration statements, type, 
7-2, 7-3 
Declarator, 

adjustable array, 2-15 
array, 2-12, 7-11 
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Declarator, (Cont.) 
dimension, 2-12, 2-16 
variable dimension, 2-15 
DECODE statement, 5-29, B-4 
Default 

allocation, 2-4 
data types, 7-2 
field descriptors, 6-15 
field descriptor values, 6-15 
table, 6-15 
formats, 5-16 

DEFINE FILE statement, 5-20, 
5-21, B-4 

Defined variable, 2-11 
Defining 

arrays, 7-2 

data types of symbolic names, 
7-2 

dimensions in an array, 7-3 
DELETE, 5-27 

Delimiting periods, 2-8, 2-20, 
2-22 

Descriptor, 

: (colon), 6-11 
$ (dollar), 6-11 
field, 6-1, 6-2 

see also Field descriptor 
Designating user-supplied sub¬ 
programs, 7-9 
Designator, null field, 
comma as, 6-21 
Destination statement, 4-8 
Determining the field width 
specification, 6-21 
Device, 

direct access, 5-11 
directory-structured, 5-20 
I/O, 5-2 
peripheral, 5-2 
Dimension 
bound, 2-15 

declarator, 2-12, 2-16 
lower bound, 2-13 
upper bound, 2-13 
variable, 2-15 
statement, 7-3, B-5 
Dimensions, 2-12 
Dimensions in an array, 
defining, 7-3 
Direct access 
device, 5-11 

files, 5-1, 5-21, 5-25, 5-27 
I/O 

formatted, 5-1, 5-12 
statement, 5-21 
unformatted, 5-1, 5-11 


Direct access (Cont.) 

READ statement 
formatted, 5-12 
unformatted, 5-11 
WRITE statement 
formatted, 5-13 
unformatted, 5-12 
Directory-structured device, 5-20 
Disconnecting a file, 5-28 
Disk file, 5-28 
Disk unit, 5-26 
Display, printing the, 4-11 
DISPOSE keyword, 5-23, 5-27 
Division, 2-17 
DO iteration control, 4-6 
DO list, implied, 5-4 
DO loop, 5-4, 8-6 

control transfers in a, 4-8 
nested, 4-7, 4-8 
range of the, 4-5, 4-6, 4-7 
terminal statement, 4-5 
DO range, executions of the, 4-6 
DO statement, 4-5, 4-6, 5-4, B-5 
extended range rules, 4-9 
Documentation conventions, ix 
Dollar sign ($) 

character, 6-11, 6-16 
descriptor, 6-11 

Double precision, 2-2, 2-3, 2-18, 
2-19, 6-6 
constant, 2-6 
conversion, 2-20 
negative constant, 2-6 
operations, 2-20 

Double quote, leading, 2-7, 6-20 
Dummy array size, 2-15 
Dummy arguments, 2-2, 2-11, 4-10, 
7-6, 8-1, 8-7 
and actual arguments, 
associating, 8-1 
in an ASF, 8-2 
in an ENTRY statement, 8-6 
integer, 2-15, 2-16 
values, 2-15 


E 

E field descriptor, 6-5 
Editing, complex data, 6-12 
Editor, using a text, 1-5 
Effect of 

data magnitude on G format 
conversions, 6-7 
exponent in an external 
field, 6-21 
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Effect of, (Cont.) 
parentheses, 2-18 
the scale factor, 6-13 
Elements, 

arithmetic, 2-16, 2-17 
array, 2-1 

see also Array elements 
assigning values to list, 5-3 
logical, 2-21 
of a FORTRAN program, 1-3 
Ellipsis (...), x 
ENCODE statement, 5-29, B-5 
End of a 

program unit, 4-12 
record, 5-15 
End-of-file 

condition, 5-2, 5-18, 5-19 
record, 5-18, 5-20 
transfer of control on, 5-18 
END= specification, 1-1, 5-18, 
B-6 

END statement, 1-3, 4-12, B-5 
ENDFILE statement, 5-20, B-5 
Entries, 

function, 2-2 
subroutine, 2-2 
ENTRY 

and array declarator inter¬ 
action, 8-7 

in function subprogram, 8-6 
names, 8-6 

function, 8-6 

points within a subprogram, 
multiple, 8-6 
statement, 1-2, 8-6, t>-o 
dummy arguments in, 8-6 
.EQ., 2-20 
Equal sign, 3-1 
EQUIVALENCE 

and COMMON interaction, 7-8 
and LOGICAL*4 arrays, 7-8 
of array storage, 7-7 
statements, 2-11, 7-5, 7-6, 
7-8, B-6 

Equivalencing arrays with non¬ 
unity lower bounds, 7-7 
Equivalent, making arrays, 7-6 
.EQV., 2-22 

ERR keyword, 5-23, 5-25 
ERR= specification, 1-1, 5-18, 
B-6 

Error condition, 5-2, 5-18 
transfer of control on, 5-18 
Evaluation of operators, 2-23 
Evaluation order, 2-19 
Evaluation, order of, 2-18 
Even boundary, 7-4 


Example; Newton-Raphson itera¬ 
tion method, 8-4 
Examples, 

FORTRAN programming, C-l 
OPEN statement, 5-28 
Exclamation point, 1-1, 1-3 
Executable program 1-3, 7-4 
Executable statements, 1-3, 8-9 
Execution, 

conditional statement, 4-4 
of a formatted input statement, 
6-19 

of a formatted output state¬ 
ment, 6-19 

> of the DO range, 4-6 
resuming program 4-11 
suspending program, 4-11 
terminating program, 4-11 
Explicit type declaration, 2-11 
Exponent, 6-4, 6-20 

effect of in an external field, 
6-21 

field, 2-6 

field indicator, D, 6-5 
Exponential format, 6-5 
Exponentiation, 2-17, 2-18 
operator, 2-17 
Expressions, 2-1, 2-9, 2-16, 

5- 4, 6-14 
arithmetic, 8-2 
complex, 2-21 
logical, 2-16, 2-21 
mixed-mode, 1-1 
numeric, 5-22 
operators, B-l 
relational, 2-16, 2-20 
subscript, 2-13, 5-4 
variable format, 6-14 

External 

field, 6-21 

effect of exponent in, 6-21 
separators, 6-17 
input field, 6-20 
procedure names, 7-8 
record, 5-14 

record, character position of, 

6 - 10 

statement, 7-8, B-6 
statement, use of PDF name 
in, 8-10 

Extended range, 4-8, 4-9 
DO statement rules, 4-9 
Extending a file, 5-26 
Extending the common block, 7-8 
EXTENDSIZE keyword, 5-23, 5-26 
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F field descriptor, 6-4, 6-13 
Factor, scale, 6-2, 6-12 
inoperative, 6-21 
False, 2-8, 2-20, 2-21 
•FALSE., 2-8 
Field, 

all-blank, 6-2, 6-4 
continuation, 1-7 
descriptor, 6-1, 6-2, 6-16, 
6-19, 6-20 
A, 6-8, 6-9 

D, 6-6 

E, 6-5 

F, 6-4, 6-13 

G, 6-6, 6-13 

H, 6-9 

I, 6-2 
L, 6-8 
O, 6-3 
Q, 6-11 
T, 6-10 
X, 6-10 

descriptors, 

alphanumeric literal, 6-20 
default, 6-15 
using scale factors, 6-20 
values, default (table), 6-15 
designator, comma as null, 6-21 
external input, 6-20 
fractional part of, 6-21 
null (zero-length), 6-18 
separators, 6-1 
separators, external, 6-17 
sequence number, 1-7 
statement, 1-7 
statement label, 1-6 
termination, short, 1-2, 6-17 
width, 

optional, 6-20 
specification, determining, 
6-21 y 
value, 6-15 
Fields, 

transferring record, 5-11 
zero-length, 6-21 
see also record fields 
Files, 

direct access, 5-1, 5-21, 5-25, 
5-27 

disconnecting a, 5-28 
disk, 5-28 
extending, 5-26 


Files, (Cont.) 
formatted, 5-27 
Include, 1-8, 1-9 
magnetic tape, 5-28 
open sequential, 5-19 
position, undefined, 5-14 
positioning functions, 5-2 
printing, 5-27 
processing in an overlay 
environment, 5-21 
read-only, 5-27 
scratch, 5-27, 5-28 
> sequential, 5-25, 5-27 
size and structure, 5-20 
storage space, conserving, 5-6 
unformatted, 5-27 
Filling array elements, 7-10 
FIND statement, 5-21, B-7 
First character of an output 
record, 6-21 

First record character, 6-16 
Fixed-length records, 5-21 
Form, 

character, 5-1 
FORTRAN coding, 1-5 
keyword, 5-23, 5-25 
*n, 2-3 
r*, 5-15 
r*c, 5-14 
readable, 5-1 
Format, 

A, 6-15 

control, 5-9, 6-18, 6-19 
control interaction with I/O 
lists, 6-18 

conversions, effect of data 
magnitude on G, 6-7 
data field, 6-1 
expression, variable, 6-14 
list-directed output, 5-16 
object time, 6-18 
reversion, 6-13, 6-19, 6-20 
specifications, 5-1, 6-1, 6-16 
constructing array, 6-20 
separators, 6-16 
Format 

specifiers, 5-2 
statements, 6-1, 6-14, 6-20, 
B-7 

statements, summary of rules 
for, 6-19 
Formatted 

ACCEPT statement, 5-9 
direct access I/O, 5-1, 5-12 
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Formatted (Cont.) 

direct access READ state¬ 
ment, 5-12 

direct access WRITE state¬ 
ment, 5-13 
files, 5-27 

input statement, execution 
of, 6-19 

I/O statement, 5-3 
output statement, execution 
of, 6-19 

PRINT statement, 5-10 
records, 5-8 

sequential I/O, 5-1, 5-7 
sequential READ statement, 

5-7 

sequential WRITE statement, 
5-8 

TYPE statement, 5-10 
Formatting a FORTRAN line, 1-4 
Formatting, list-directed, 5-3, 

5- 16 

FORTRAN, ix, 5-27 

character set, 1-3, A-l 
coding form, (figure), 1-5 
coding form, using, 1-5 
language summary, B-l 
library function names, 8-9 
library functions, 8-9, C-l 
function references to, 8-9 
line, 1-5 

line, formatting cu 1-4 
processors, PDP-11, ix 
program, 1-3 

elements of a, 1-3 
statement components, 2-1 
statements, 1—3 
subprograms, 8-1 
FORTRAN IV, ix 
FORTRAN IV-PLUS, ix 
FORTRAN X3.9-1966, American 
National standard, 1-1 
Four bytes (two words), 2-3 
Fractional part of the field, 

6 - 21 
Function, 

Arithmetic Statement (ASF), 
8-2, B-2 
entries, 2-2 
entry name, 8-6 
file positioning, 5-2 
name, generic use of, 8-10 
name summary, generic, 8-11 
names, 8-10 


Function, (Cont.) 

reference, 4-10, 8-1, 8-2, 8-3 
generic, 8-10 
references, 2-1 

processor-defined, 8-9 
to FORTRAN library functions, 
8-9 

used as arguments, 7-9 
FUNCTION 

statement, 8-3, 8-4, B-7 
subprogram, 2-2, 4-10, 8-3 
subprograms, ENTRY in, 8-6 
Functions, 

FORTRAN library, 8-9, B-17, C-l 
function references to, 8-9 
non-generic FORTRAN, 8-10 
processor-defined, 2-2 


G 


G field descriptor, 6-6, 6-13 
G format conversions, effect of 
data magnitude on, 6-7 
.GE., 2-20 

Generic and processor-defined 
function usage, 8-11 
Generic function 
name summary, 8-11 
name, use of, 8-10 
reference, 8-10 
selection, 8-10 

Giving constants symbolic names, 
7-11 


GO TO statement, 4-1, B-7, B-8 
assigned, 4-3 
computed, 4-2 
types of, 4-1 
unconditional, 4-2 
Group repeat 
count, 6-14 

specification, 6-14, 6-20 
Grouping, 6-14 
.GT., 2-20 


H 

H field descriptor, 6-9 
H, (letter), 2-8 
Hollerith constants, 1-1, 2-3, 
2-8, 2-9, 5-7, 5-16 
data type rules for, 2-9 
Hollerith count, 6-14 
Hollerith data, 7-10 
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I 

I field descriptor, 6-2 
I/O, 

formatted direct access, 5-1 
formatted sequential, 5-1 
5-6, 5-8, 5-11, 

elements, 5-29, 6-15 
rule, 6-20 
simple, 5-3 

list-directed sequential, 5-2 
multi-buffered, 5-26 
statement, 

auxiliary, 5-2 
direct access, 5-21 
formatted, 5-3 
unformatted, 5-3 
direct access, 5-1 
sequential, 5-1 
see also Input/Output 
IP statement, 4-3, B -8 
arithmetic, 4-4 
logical, 4-4, 4-5 
Imaginary part, 2-2, 2-7 
Implication, data type by, 2-11 
see also Data type 
Implicit logical unit, 5-1 
number, 5-2 

IMPLICIT statements, 2-10, 2-11 
7-1, B -8 ' 

Implied data types, overriding. 

Implied DO lists, 5-4 
Include file, 1-8, 1-9 
INCLUDE statement, 1-3, 1-8 
1-9, B-9 

Increment parameter, 4-5 
Indicator, 
comment, 1-6 
continuation, 1-7 
debug statement, 1-6 
Information, system dependent, 
ix 

Initial space allocation, 5-26 
INITIALSIZE keyword, 5-23, 5-26 
Inner loop, 4-8 
see also DO loop 
Inoperative scale factor, 6—21 
Input 

characters, remaining, 6-11 
constant, 5-14 
conversion, 6 - 20 , 6-21 
field, external, 6-20 


Input, (Cont.) 
file, 5-11 
statements, 2-11 
statements, execution of 
formatted, 6-19 
Input/Output, 
devices, 5-2 

formatted direct access, 5-12 
formatted sequential, 5-7 
list-directed, 5-13 
see List-directed 
lists, format control interac¬ 
tion with, 6-18 
methods of handling, c -1 
records, 5-3 
statements, 5-1, 5-3 
unformatted direct access, 5-11 
unformatted sequential, 5-6 
Integer, 2-2, 2-3, 2-19 

constant, 2-4, 2-5, 2-7, 2-15, 
2—16 

absolute value of an, 2-4 
negative, 2-4 
unsigned, 6-20 
data, 2-11 

data, translation of, 6-2 
dummy argument, 2-15, 2-16 
operations, 2-19 
type, 4-2 
value, 2-22 
variable, 2-16 
variables, 2-11 
INTEGER*2, 2-3 
data type, 2-5 
INTEGER*4, 2-3 
data type, 2-5 

Interaction, ENTRY and array 
declarator, 8-7 
Interaction, EQUIVALENCE and 
COMMON, 7-8 

Internal format, converting 
data to, 5-7 

Internal representation, 2-22, 

5-1 

Initial parameter, 4-5 
Iteration 


control, DO, 4-6 
count, 4-6 


method example, Newton-Raphson, 
8-4 

Iterative calculations, c -1 
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K 

Keyboard, terminal, 5-17 
Keyword, 5-22 
Keyword, ERR, 5-25 
Keywords in the OPEN statement, 
5-23 


L 

L field descriptor, 6-8 
Label, * 

all-zero statement, 1-6 
field, statement, 1-6 
list, statement, 1-1 
reference, statement, 3-4 
statement, 1-3, 1-6, 8-5 
Language summary, FORTRAN, B-l 
.LE., 2-20 

Leading double quote, 2-7, 6-20 
Leading spaces, 6-2, 6-4 
Left angle bracket, 1-4 
Length attributes of symbolic 
names, overriding, 7-3 
Length specifier, data type, 

2-3 

Letters, 

lower case, 1-4 
upper case, 1-4 
Level number, 2-12 
Library functions, FORTRAN, 

8-9, B-17, C-l 
function references to, 8-9 
Line, 1-3 

comment, 1-9 
continuation, 1-3, 1-9 
formatting a FORTRAN, 1-4 
FORTRAN, 1-5 
printer, 5-10 
/List, 1-8 
List, 

arguments, 4-10 

element, data types or tne, 

5-15 

elements, assigning values to, 
5-3 

implied DO, 5-3 
I/O, 5-3, 6-20 
keyword, 5-27 
rule, I/O, 6-20 
simple I/O, 5-3 
statement label, 1-1 


List-directed 

ACCEPT statement, 5-17 
formatting, 5-3, 5-16 
I/O, 1-3, 5-13 
output formats, 5-16 
PRINT statement, 5-18 
READ statement, 5-14 
records, backspacing over, 5-14 
sequential I/O, 5-2 
TYPE statement, 5-17 
WRITE statement, 5-16 
Literals, alphanumeric, 1-1, 2-8 
see also Alphanumeric literal 
Locations, storage 
allocating, 7-3 
assigning, 7-6 
Logical, 2-2, 2-3, 2-19 
assignment statement, 3-3 
constant, 2-8, 5-14 
data, 2-17, 3-3 
data, transmission of, 6-8 
elements, 2-21 

expressions, 2-16, 2-21, 4-5 
IF statement, 4-4, 4-5 
operators, 2-21, 2-22, 2-23, 

B-l 

record length, 5-25 
unit, 5-1, 5-6 
implicit, 5-1 
number, implicit, 5-2 
numbers, 5-2 
value, 2-22, 3-3 
values, 2-16 
LOGICAL*1, 2-3 
array, 7-8 

array element storage, 2-14 
elements, assigning to 
COMMON, 7-4 
LOGICAL*2, 2-3 
LOGICAL*4, 2-3 
Loop, 

nested DO, 4-7, 4-8 
range of the DO, 4-6 
see also DO loop 
Loss of precision, 5-9 
Lower bound, 2-12 

dimension declarator, 2-13 
equivalencing arrays with 
non-unity, 7-7 
Lower case letter, x, 1-4 
.LT., 2-20 
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M 

Magnetic tape, files, 5-28 
Magnitude, 

effect on G format conversions, 
data, 6-7 

of a real constant, 2-6 
of the value, 6-4 

see also Data type storage 
requirements 

Main program, 1-3, 2-2, 4-12 
unit, 4-10, 7-12 
units, 2-15 

Making arrays equivalent, 7-6 
Maximum number of characters 
stored in a variable, 6«-8 
Maximum Radix-50 value, A-3 
MAXREC keyword, 5-23, 5-27 
Memory requirements for data 
types 

see Data Type Storage 
Requirements 

Methods of handling input/output, 
C-l 

Minus, unary, 2-17 
Mixed-mode expressions, 1-1 
Moving the decimal point, 

6-12, 6-13 

Multi-buffered I/O, 5-26 
Multi-dimensional arrays, 
processing, 5-5 
Multiple entry points within 
a subprogram, 8-6 
Multiple functions in a single 
function subprogram, 8-8 
Multiplication, 2-17 


N 

NAME keyword, 5-23, 5-24 
Named common, 7-5 
Names, 

classes of symbolic, 2-2 
common block, 7-4 
external procedure, 7-8 
generic function, 8-10, 8-11 
giving to constants, symbolic, 

7- 11 

summary of generic function, 

8 - 11 

symbolic, 2-1 

use of generic function, 8-10 
.NE., 2-20 


Negative 

double precision constant, 2-6 
integer constants, 2-4 
see also Constant 
Nested DO loops, 4-7, 4-8 
see also DO loop 
NEW, 5-24 

Newton-Raphson iteration method 
example, 8-4 
/NOLIST, 1-8 
NONE, 5-27 

Nonexecutable statements, 1-3, 

7- 1 

Non-generic FORTRAN functions, 

8 - 10 

Non-printing character, ix 
Non-unity lower bounds, 

equivalencing arrays with, 7-7 
NOSPANBLOCKS keyword, 5-23, 5-26 
.NOT., 2-22 
Notation, syntax, x 
Null 

character, ASCII, 5-24 
field designator, comma as, 

6-21 

record, 5-7 
value, 5-14 

values, repetition of, 5-15 
zero-length field, 6-18 
Number, 

column, 2-12 
complex, 2-7 

implicit logical unit, 5-2 
level, 2-12 
logical unit, 5-2 
of blocks, 5-26 
page, 2-12 
row, 2-12 
statement, 11-6 
Numerals, 2-4 
Numeric 

data, rounding, 5-9 
expression, 5-22 
values, 2-16 


o 

O field descriptor, 6-3 
Object time format, 6-18 
Octal constant, 2-7, 2-19 
Octal values, transmission of, 
6-3 

OLD, 5-24 
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One character, 6-16 
Open sequential file, 5-19 
OPEN statement, B-9, 5-22 
examples, 5-28 
keywords in the, 5-23 
Operand, 2-16 
Operators, 2-16 

arithmetic, 2-16, B-l 
assignment, 2-9 
binary, 2-9, 2-17 
evaluation of, 2-23 
exponentiation, 2-17 
expression, B-l 
logical, 2-21, 2-22, B-l 
precedence, 2-18, 2-23 
relational, 2-20, B-l 
unary, 2-17 
Optional 

field width, 6-20 
repeat count, 6-20 

see also Repeat count 


.OR., 2-22 

Order of evaluation, 2-18, 2-19 
Order of subscript progression, 
2-13 


Ordering rules, statement, 1-7 
Outer loop, 4-8 

see also DO loop 
Output formats, list-directed, 
5-16 


see also Statements, list- 
directed and List-directed 
format 

Output record, first character 
of, 6-21 

see also Record 
Output statement, execution 
of formatted, 6-19 
see also sta'tement, 
formatted and I/O statement 
Overlay environment, file 
processing in an, 5-21 
Overriding 

data types, 7-2 
implied data types, 7-1 
length attributes of symbolic 
names, 7-3 

the D specification, 6-21 


P 

Packing arrays, 5-3 
Page number, 2-12 
Parameter, 

increment, 4-5 
initial, 4-5 


Parameter, (Cont.) 
terminefl, 4-5 
constants, 2-2 

see also Constants 
PARAMETER statements, 1-2, 7-11 
B-9 

Parentheses, 2-21, 2-23, 6-1, 

6-14 

effect of, 2-18 
use of, 2-18 
Part, 

imaginary, 2-2 
real, 2-2 

Partial records, 5-3, 5-8, 5-13 
see also Records 
PAUSE statement, 4*-ll, B-10 
PDF names (processor-defined 
function), 8-9 
in EXTERNAL statement, use 
of, 8-10 

see also Function, Processor- 
defined and Processor- 
defined function 
PDP-11 FORTRAN processors, ix 
Periods, delimiting, 2-8, 2-20, 

2-22 

Peripheral devices, 5-2 
Physical block size, 5-28 
see also Block 

Physical end of record, 6-17 
see also Record 
Plus, unary, 2-17 
Plus character, 6-16 
Point, decimal 

see Decimal point 
Points, multiple entry within 
subprogram, 8-6 
Positive constant, 2-4 
integer, 2-4 

see also Constant 
Precedence, 2-18, 2-21, 2-22 
operator, 2-23 
Precision, 

see Double Precision or 

Data type storage requirements 
Precision, loss of, 5-9 
PRINT, 5-27 

PRINT statement, B-10, B-13, 

B-14 

formatted, 5-10 
list-directed, 5-18 
see also Statement 
Printable character, 1-4 
Printer, 
line, 5-10 

terminal, 5-10, 5-17 
Printing the display, 4-11 
Printing a file, 5-27 
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Procedure, computing, 1-3 
Procedure names, external, 7-8 
Procedure names as subprogram 
arguments, 7-9 
Processing, 

carriage control, 5-27 

see also Carriage control 
iterative, 4-5 

multi-dimensional arrays, 5-5 
termination of, 5-15 
Processors, PDP-11 FORTRAN, ix 
Processor-defined function 
(PDF), 2-2, 8-9 
names, 8-9 

references, 8-9, 8-10 
Program, 

creating a source, 1-5 
elements of a FORTRAN, 1-3 
executable, 1-3, 7-4 
execution, 

altering format specifications 
during, 6-18 
resuming, 4-11 
suspending, 4-11 
terminating, 4-11 
FORTRAN, 1-3 
main, 1-3, 2-2 
statement, 2-12, B-10 
Program unit, 1-3, 3-4, 5-21, 

7-4, 7-5, 8-3, 8-4, 8-9 
calling, 4-10 
end of a, 4-12 
main, 2-15, 4-10, 7-12 
structure, 1-7 
Programming examples, 

FORTRAN, C-l 

Progression, order of sub¬ 
script, 2-13 


Q 

Q field descriptor, 6-11 
Quantity, 32-bit signed, 2-5 
Quote, leading double, 2-7, 
6-20 


R 

Radix-50 

character set, A-3 
characters, 2-10 
characters and ASCII octal 
equivalents, A-3 


Radix-50 (Cont.) 
code values, 2-10 
constant, 2-9, 2-10, 7-10 
maximum value, A-3 
Range, 

extended, 4-8 

of the DO loop, 4-5, 4-6, 4-7 
see also DO loop range 
rules, DO statement extended, 
4-9 

Rank, data type, 2-19 
READ statement, B-10, B-ll 

formatted direct access, 5-12 
formatted sequential, 5-7 
list-directed, 5-14 
unformatted direct access, 5-11 
unformatted sequential, 5-6 
Readable form, 5-1 
Read-only file, 5-27 
READONLY keyword, 5-23, 5-25 
Real, 2-2, 2-3, 2-19 
constant, 2-5 

constant, magnitude of a, 2-6 
operations, 2-19 


part, 

2-2, 

2-7 

variables, 

2-11 

REAL*4, 

2-3 


REAL*8, 

2-3 


Record, 

5-6, 

5-12 

see 

also 

Records 


beginning of a, 5-15 
character, first, 6-16 
end-file, 5-20 
end of a, 5-15 

external, character position 
of, 6-10 

fields, transferring, 5-11 
first character of an output, 
6-21 

initiator, 6-17 
length, actual, 5-25 
length, logical, 5-25 
number, 5-11, 5-19 
number specifier, 5-21 
physical end of, 6-17 
terminator, 6-1, 6-17 
terminator, slash (/), 6-16 
Records, 5-3, 5-9 
formatted, 5-8 
fixed length, 5-21 
input/output, 5-3 
number of, 5-11 
partial, 5-3, 5-8, 5-13 
size of, 5-11 
transmitting, 5-9 
zero-filled, 5-12 
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RECORDSIZE keyword, 5-23, 5-25 
Reference, 
array, 5-4 
function, 8-1, 8-3 
generic function, 8-10 
function used as arguments, 

7- 9 

processor-defined function, 

8- 9 

statement label, 3-4 
subprogram, 8-1 

Referencing data in COMMON, 7-4 
Reinstating a zero scale factor, 
6-20 

Relational 

expression, 2-20 
expressions, 2-16, 2-21 
operations, 2-21 
operators, 2-20, B-l 
Remaining input characters, 6-11 
Repeat count, 6-1, 6-14 
group, 6-14 
optional, 6-20 

Repeat specifications, group, 
6-14, 6-20 
Repetition of 
constants, 5-14 
null values, 5-15 
Representation, internal, 5-1, 

5- 22 

Requirements, data type storage, 
2-3 

see also Data type 
Resuming program execution, 4-11 
see also Program execution 
RETURN statement, 4-10, 8-3, 

8-4, B-12 

Reversion, format, 6-13, 6-19, 
see also Format reversion 
REWIND statement, 5-19, B-12 
Right angle bracket, 1-4 
Rounding numeric data, 5-9, 6-4 
Row number, 2-12 

see also Number 
Rule, I/O list, 6-20 
Rules, DO statement extended 
range, 4-9 

for format statements, summary, 

6- 19 

statement ordering, 1-7 


s 

SAVE, 5-27 

Scale factor, 6-2, 6-12 
effect of, 6-13 


Scale factor, (Cont.) 

field descriptors using a, 

6-20 

inoperative, 6-21 
reinstating a zero, 6-20 
Scratch file, 5-27, 5-28 
SCRATCH keyword, 5-24 
Selection, generic function, 8-10 
Separators, 

external field, 6-17 
field, 6-1 

format specification, 6-16 
slash, 5-15 
value, 5-15 

Sequence number field, 1-7 
> Sequential file, 5-25, 5-27 
open, 5-19 
Sequential I/O, 

formatted, 5-1, 5-7 
list-directed, 5-2 
unformatted, 5-1, 5-6 
Sequential READ statement, 
formatted, 5-7 
unformatted, 5-6 
Sequential WRITE statement, 
formatted, 5-8 
unformatted, 5-6, 5-7 
Shading, ix 
Shared access, 5-26 
SHARED keyword, 5-23, 5-26 
Sharing storage space, 7-6 
Short field termination, 1-2, 

6-17 

Signed quantity, 

16-bit, 2-5 
32-bit, 2-5 
Simple I/O list, 5-3 
Size, dummy array, 2-15 
Size, specifying the physical 
block, 5-28 

Slash (/), 5-15, 6-1, 6-19 
consecutive, 6-16 
record terminator, 6-16 
separator, 5-15 
Source 

line, 4-12 

program, creating a, 1-5 
text, 1-6 
Space, 

allocation, initial, 5-26 
appended, 2-9 

character, ix, 1-6, 2-10, 6-16 
sharing storage, 7-6 
Spaces, 5-14, 5-15 

see also space character 
leading, 6-2, 6-4 
trailing, 6-2 
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Special characters, 1-4 
Specification, 
attribute, 5-22 
data type, 2-11 
determining field width, 6-21 
format, 5-1, 6-1 
group repeat, 6-14, 6-20 
separators, format, 6-16 
statements, 7-1 
statements in BLOCKDATA 
subprogram, 8-8 

Specifier, data type length, 2-3 
Specifiers, formats, 5-2 
Square brackets, ( [ j) , x 
Statement, 

ACCEPT, 5-9, 5-17, B-2, B-10, 
B-ll 

arithmetic assignment, 3-1 
ASSIGN, 3-4, 4-3, B-2 
assigned GO TO, 4-3 
BACKSPACE, 5-20, B-3 
BLOCK DATA, 8-4, B-3 
CALL, 4-9, 4-10, 7-9, 8-1, 

8-4, B-3 

CLOSE, 5-28, B-3 
COMMON, 2-11, 7-4, 7-5, B-3 
computed GO TO, 4-2 
CONTINUE, 4-9, B-4 
control, 4-1 
DATA, 2-11, 7-10, B-4 
DECODE, 5-29, B-4 
DEFINE FILE, 5-20, 5-21, B-4 
destination, 4-8 
DIMENSION, 7-3, B-5 
DO, 4-5, 4-6, B-5 
ENCODE, 5-29, B-5 
END, 1-3, 4-12, B-5 
END=, 5-18, B-6 
ENDFILE, 5-20, B-5 
ENTRY, 1-2, 8-6, B-6 
EQUIVALENCE, 2-11, 7-5, B-6 
ERR=, 5-18, B-6 
EXTERNAL, 7-8, B-6 
execution of formatted input, 
6-19 

execution of formatted output, 
6-19 

FIND, 5-21, B-7 
FORMAT, 6-1, B-7 
formatted, 

ACCEPT, 5-9 

direct access READ, 5-12 
I/O, 5-3 
PRINT, 5-10 
sequential READ, 5-7 
TYPE, 5-10 


Statement, (Cont.) 

FUNCTION, 8-3, 8-4, B-7 
GO TO, 4-1, 4-2, 4-3, B-7 
IF, 4-3, B-8 

IMPLICIT, 2-10, 2-11, 7-1, B-8 
INCLUDE, 1-3, 1-8, 1-9, B-9 
I/O, 5-1, 5-3 
list-directed, 

ACCEPT, 5-17 
PRINT, 5-18 
READ, 5-14 
TYPE, 5-17 
WRITE, 5-16 

logical assignment, 3-3 
logical IF, 4-4, 4-5 
OPEN, 5-22, B-9 
PARAMETER, 1-2, 7-11, B-9 
PAUSE, 4-11, B-10 
PRINT, 5-10, 5-18, B-10, B-13, 
B-14 

PROGRAM, 7-12, B-10 
READ, 5-6, 5-7, 5-11, 5-12, 
5-14, B-10 

RETURN, 4-10, 8-3, 8-4, B-12 
REWIND, 5-19, B-12 
STOP, 4-11, B-12 
SUBROUTINE, 8-4, 8-5, B-12 
terminal, 4-9 

TYPE, 5-10, 5-17, B-12, B-13, 
B-14 

type declaration, 2-11, B-12 
unconditional GO TO, 4-2 
unformatted 

direct access READ, 5-11 
direct access WRITE, 5-12 
sequential READ, 5-6 
sequential WRITE, 5-7 
VIRTUAL, B-13, D-l 
WRITE, 5-7, 5-8, 5-12, 5-13 
5-16, B-13, B-14 
Statement components, FORTRAN, 

2-1 

Statement execution, conditional, 

4- 4 

Statement field, 1-7 
Statement function, arithmetic 
(ASF), 8-2 

Statement label, 1-3, 1-6, 4-3, 

5- 2, 5-18, 8-5 
all-zero, 1-6 
field, 1-6 
list, 1-1 
reference, 3-4 

Statement number, 1-6 
Statement ordering rules, 1-7 
Statements, 1-3 

allowed in a BLOCK DATA sub¬ 
program, 8-8 
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Statements, (Cont.) 
assignment, 3-1 
conversion rules for assign¬ 
ment, 3-2 

executable, 1-3, 8-9 

format, summary of rules, 6-19 

non-executable, 1-3, 7-1 

specification, 7-1 

summary of, B-2 

summary of rules for format, 

6- 19 

type declaration, 2-10, 7-2, 

7- 3 

STOP statement, 4-11, B-12 

Stop, tab, 1-6 

Storage, 

area, 1-byte, 2-4 
allocating locations, 7-3 
block of, 7-4 
contiguous areas, 7-4 
location, 7-5 

locations, allocating, 7-3 
locations, assigning, 7-6 
locations, contiguous, 2-11 
LOGICAL*l array elements, 2-14 
requirements, data type, 2-3 
space, sharing, 7-6 
unit, 2-3 
units, 5-25 

Storage, array, 2-13, 2-14 
equivalence of, 7-7 
Strings, byte, 2-8 
Structure, program unit, 1-7 
Subprogram, 1-3, 2-15, 4-12, 7-6 
actual arguments, 8-1 
arguments, using procedure 
name as, 7-9 
block data, 2-2 
dummy arguments, 8-1 
execution, 8-6 
FUNCTION, 4-10, 8-3 
multiple entry points within, 
8-6 

multiple functions in a single 


function, 

8-8 

references, 

8-1 

SUBROUTINE, 

4-9, 4 

usage, C-l 



Subprograms, designating user- 
supplied, 7-9 
ENTRY in function, 8-6 
function, 2-2 
subroutine, 2-2 
user-written, 8-1 
Subroutine entries, 2-2 
SUBROUTINE statement, 8-4, 8-5, 
B-12 


SUBROUTINE subprogram, 2-2, 4-9, 
4-10, 8-4, 8-5 
Subscript, 2-13 

expression, 2-13, 5-4 
progression, 5-5, 5-9, 7-10 
order of, 2-13 

Subscripted array reference, 2-13 
Subscripts, array references 
without, 2-14 
Subtraction, 2-17 
Successive commas, 6-18 
Summary, 

FORTRAN language, B-l 
generic function names, 8-11 
of rules for format state¬ 
ments, 6-19 
of statements, B-2 
Suspending program execution, 

4-11 

Symbolic name, 2-1, 2-10, 2-11 
classes, 2-2 

defining data types of, 7-2 
giving to constants, 7-11 
overriding length attributes 
of, 7-11 

Syntax notation, x 

System dependent information, ix 


T field descriptor, 6-10 
TAB character, ix, 1-5, 1-6 
Tab stop, 1-6 
Tabs, 5-15 

Tabulation specifier, 6-10 
Terminal 

keyboard, 5-9, 5-17, 6-17 
parameter, 4-5 
printer, 5-10, 5-17 
statement, 4-8, 4-9 
statement of a DO loop, 4-5 
Terminating program execution, 
4-11 

Termination of processing, 5-15 
Termination, short field, 6-17 
Terminator, record, 6-1 
slash (/), 6-16 
Text Editor, using a, 1-5 
Trailing spaces, 6-2 
Transfer of control on 
end-of-file, 5-18 
error conditions, 5-18 
Transferring control, 4-1, 8-1 
Transferring record fields, 5-11 
Transfers, conditional control, 
4-4 
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Translation of integer data, 6-2 
Transmission, data, 5-3 
alphanumeric, 6-8 
logical, 6-8 
octal values, 6-3 
Transmitting array elements, 5-4 
Transmitting records, 5-9 
True, 2-8, 2-20, 2-21 
.TRUE., 2-8 

Truncated constant, 2-9 
Type, 

by implication, data, 2-11 
data see Data type 
declaration, explicit, 2-11 
declaration statement, 2-10, 
2-11, 7-2, 7-3, B-12 
keyword, 5-23, 5-24 
of GO TO statements, 4-1 
specification, data, 2-11 
statement, B-12, B-13, B-14 
formatted, 5-10 
list-directed, 5-17 


u 

Unary 

minus, 2-17 
operators, 2-17 
plus, 2-17 

Unconditional GO TO statement, 
4-2 

Undefined file position, 5-14 
Undersized input data field, 
1-2 

Unformatted 

direct access I/O, 5-1, 5-11 
READ statement, 5-11 
WRITE statement, 5-12 
files, 5-27 
I/O, 5-3 

sequential I/O, 5-1, 5-6 
READ statement, $-6 
WRITE statement,j5-6, 5-7 
Unit, 

implicit logical, 5-1 
keyword, 5-23, 5-24 
logical, 5-1 
main program, 7-12 
UNKNOWN, 5-24 
Unsigned constant, 2-4 
integer, 6-20 
Unsubscripted array, 5-3 
name, 2-15, 4-10, 7-10 


Upper bound, 2-12 

Upper bound dimension declarator, 
2-13 

Upper case letters, x, 1-4 
Use of generic function name, 

8-10 

parentheses, 2-18 
PDF name in an EXTERNAL state¬ 
ment, 8-10 

User-supplied subprograms, 
designating, 7-9 
User-written subprograms, 8-1 
Using 

a text editor, 1-5 
FORTRAN coding forms, 1-5 
procedure names as subprogram 
arguments, 7-9 


V 

Value, 2-17, 5-14 
field width, 6-15 
integer, 2-22 
magnitude of, 6-4 
null, 5-14 

of the variable, 2-10 
Radix-50 maximum, A-3 
separator, 5-15 
Values, 

assigning, 3-2 
assigning to variables and 
array elements, 7-10 
default field descriptor, 6-15 
dummy argument, 2-15 
in common blocks, assigning 
initial, 8-8 

logical, 2-16, 2-22, 3-3 
numeric, 2-16 
Variable, 

control, 4-5, 4-6 
dimension declarators, 2-15 
format expression, 6-14 
value of the, 2-10 
Variables, 2-1, 2-2, 2-10, 2-11, 
5-4 

assigning values to array 
elements and, 7-10 
associated, 2-10, 5-21 
integer, 2-11, 2-16 
maximum number of characters 
stored in, 6-8 
real, 2-11 
Virtual array, D-l 
VIRTUAL statement, B-13, D-l 
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w 

Width value, field, 6-15 
Word boundary, 7-4 
Word boundary alignment, 7-8 
WRITE statement, B-13, B-14 
formatted direct access, 5-13 
formatted sequential, 5-8 
list-directed, 5-16 
unformatted direct access, 
5-12 

unformatted sequential, 5-7 


X 

X field descriptor, 6-10 
•XOR., 2-22 


z 

Zero 

byte, 5-24 
character, 6-16 
scale factor, reinstating, 6 
Zero-filled records, 5-12 
Zero-length field (null), 6-18 
Zero-length fields, 6-21 


1-dimensional array, 2-12 

1- byte storage area, 2-4 

2- dimensional array, 2-12 

3- dimensional array, 2-12 

4- byte allocation, 2-4 
32-bit signed quantity, 2-5 
16-bit signed quantity, 2-5 
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Source Compare (SRCCOM) 


f* 

mf 




ThTsecond example is slightly different. The default value for the /L:n option sets to 3 the number of lines that 
mus" -ee to constitute a match. The output listing is directed to the file DIFF.TXT on device DK:. 

F. 1X1 DEMO.DAK t DEMO.TXT 

i_ES are different 

jnitor TYPE command lists the information contained in the output file: 

TiF'E DIFF.TXT 

U FILE1 

1 FILE2 

WHAT HIS SHAME MAY BE O' CARE » MAN? 

THEN CATCH THE MOMENTS AS THEY FLY» 

AND USE THEM AS YE OUGHT» MAN:— 

BELIEVE ME» HAPPINESS IS SLY* 

AND COMES NOT AY WHEN SOUGHT t MAN. 

-—SCOTTISH SONG 


WHAT HIS SHARE MAY BE O' CARE* MAN? 
THEN CATCH THE MOMENTS AS THEY FLY r 
AND USE THEM AS YE OUGHT* MAN? — 
BELIEVE ME» HAPPINESS IS SHY). 

AND COMES NOT AY WHEN SOUGHT * MAN. 

—SCOTTISH SONG 


**?**#*# 

, in the first example, SRCCOM prints the first line of each file: 

1) 1 FILE1 

2) 1 FILE2 

The first three lines of each file are identical and, therefore, constitute a match. Again, the fourth lines differ. 
SRCCOM prints the fourth line of the first file, followed by the next matching line: 

D1 WHAT HIS SHAME MAY BE 0' CARE* MAN? 

1> THEN CATCH THE MOMENTS AS THEY FLY * 


However, SRCCOM did not find a match (three identical lines) before it encountered the next difference. So, the 
second matching line prints, followed by the next differing line from the first file: 

AND USE THEM AS YE OUGHT t MAN? — 

BELIEVE ME* HAPPINESS IS SLY* 

^,'Tfie next matching line prints: 

1) AND COMES NOT AY WHEN SOUGHT-* MAN. 


•"I 







15-4 






• nlfe> 













00T~3 


0AT9D9J 

oq Jaqqnq aqq 

•ppaj eqep 
qo ssajppp aqq si 

qnq 


LLZ-0 s6uej 

•(xeqoo) 

aqq ui jaquinu x auue qo e si 

ueqo 


quauin6je j,w3 

pjOM-aAiq e 

• >|ooxq 
qo ssaippe aqq si 

S9JS 

: ajaqM 



yjq 'quoM'qnq 1 uaqo ; sajs 

QV3H 8 

:ix^D ojopw 


•paqaxduioo si jaqsueiq aqq uaqM joqiuoui aqq Aq ua>jeq si uoiqoe x^xoads 
on # paqaxduioo si jaqsuejq aqq ajoqaq Axqissod 'paqaiqiui si av3H* 
aqq jaqqe Axaqeipauiuii uiej6oid iasn aqq oq sujnqaj xojquoo a paqnoaxa 
si qsanbaj H3XN3* JO dflMOOl* a uaqM aoiAap aqq qqiM paqeioosse si 
Xauueqo aqx # Ajouiaui oq x 9UU ^qo paiqioads aqq qqiM paqeioosse aoiAap 
aqq uiojq spjOM qo jaquinu paiqioads i? sjaqsuejq qsanbaj QV3H* aqx 

QV3H* 


. ‘oiaz © suiequoo 
OH *9SGO siqq ui 'pajjaqsuejq si eqep on •25 oqAq ui sieadde 
0 apoo joaia pu© 'qas si qiq Ajj©o aqj, *axiq 1 ° pua aqq puoAaq si 
q©qq jaquinu >{ooxq a qqiw paqduiaqq© si p©aj © qi paqjodaj si JOJia uv 


•pauaqjoqs 

aq qouueo qnq 'sxjeq jo spaaoons jaqqia 
spjOM 952 joq qsanbaj a 's^fooqq qo 
jaquinu qoexa ue oq pauaqjoqs si qsanbaj 
aqq aouis q©qq aqou osxv # pajjnDDO 
jaqsu©jq iVTqivd © q©qq 6uiq©oipui 
952 sui©quoo OH 'qsanbaj aqq uiojq ujnqaj 
uo # spjOM 952 oq qsanbaj aqq suaqjoqs 
pu© qo©q siqq sqoaqap joqiuoui aqx 
•axxq-jo-pua qsed p©aj oq qduiaqq© us 
si siqq 'aqiq aqq qo >|ooxq qs©x aqq si 
>poxq pu© 's^ooxq OMq si spjOM 2X5 aouis 
•fr ^jooxq qa 6uiqj©qs 'spjOM 215 peai oq 
panssi si qsanbaj © pu© (fr oq o sjaquinu 
^ooxq s©q qi) 6uox s>|ooxq aAiq si 
axiq a asoddns 'axdui©xa joj # aqq©XT eAe 

spjOM qo jaquinu aqq ss qunoo pjom 
paujnqaj aqq asn sA©mx© pxnoqs ui©j6ojd 
© 'ajoqajaqj, -pauaqjoqs si qsanbaj p©aj 
© qi paq©oipui si jojja ou 'jaqsusjq 
X©iqj©d © qo asso aqq ui - axqT ssoc 5 si 
jaqsuejq x G Tq je ^ a qnq 'aqiq-qo-pua qs©d 
p©aj oq ap©ui si qduiaqq© u© qi qunoo pjow 
paqsanbaj aqq u©qq ssax si jaquinu siqx 
•(MCIV3H 8 ) P^aj uaaq aA©q jo (DQV3H* 
J o 0V3H*) peaj aq XTT* qaqq spjOM qo 
jaquinu xvnqov aqq suxsquoo oh (ad©qoaa 
jo >|sip) aoiAap ssaoo©-uiopu© j © uiojq si 
p©aj aqq qi • (ad©q jad©d 'axdui©xa Joqj 
aoiAap ssaooe-x p Tq uan ^ 0 s © uiojq si p©aj 
aqq qi paqsanbaj spjOM qo jaquinu aqq 
suisquoo OH 'qsanbaj pauiui© j6o jd MOV3H * 
JO DCJV3H * ' QV3H * Aui? uiojq ujnqaj U' 
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